Excel VBA Scheife und transponieren

[Pergus]

Hallo liebe Excel-Guru's,
kann mir bitte jemand bei folgendem Problem helfen?

In der Tabelle "Artikel" stehen wie folgt Texte in italienischer (Zeile 1) und in deutscher (Zeile 2) Sprache.

Beispiel:
                       E                                         F                                         usw.
1   "S. 1 bianco polare lucido"   "S. 1 bianco polare opaco"
2   "S. 1 polarweiß glänzend"    "S. 1 polarweiß matt"


Nun müsste ich diese transponieren (ohne Formeln) in die Tabelle "Default", und zwar so:

Beispiel:
                       L                                         M
1   "Titel (DE)"                            "Titel (IT)"
2   "S. 1 polarweiß glänzend"       "S. 1 bianco polare lucido"
3   "S. 1 polarweiß matt"              "S. 1 bianco polare opaco"              usw.

Wie kann ich so etwas mit VBA bewerkstelligen?

Für jede Hilfe dankbar grüße ich Euch aus Südtirol

Gustav

[ebs17]

Blockweise transponieren