Spalte als Zeile in anderes Tabellenblatt?



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Spalte als Zeile in anderes Tabellenblatt?
von: Harald
Geschrieben am: 18.06.2002 - 23:29:27

Hallo!
Bin Anfänger in VBA und hab folgendes Problem
Ich möchte gerne die Zellen A1: A14(Spalte) der Tabelle1 in die Zellen A2:N2(Zeilen)der Tabelle2 übertragen. Bei jedem Neueintrag in die Zellen A1:A14 soll in die nächste Leerzeile der Tabelle2 kopiert werden. Hab leider noch nicht mal nen Ansatz wie das gehen soll
nach oben   nach unten

Re: Spalte als Zeile in anderes Tabellenblatt?
von: Uwe Wassmann
Geschrieben am: 18.06.2002 - 23:50:57

Hi,

Dies kleine Makro macht das, was du möchtest,
einfach nach eimem Neueintrag laufen lassen.

Makro:

Sub kopieren()
'leere Zeile in tabelle 2 suchen
Sheets("Tabelle2").Activate
For k = 2 To 500
b = Cells(k, 1)
If b = "" Then Exit For
Next k
'Zeilen 1 bis 14 der Spalte A kopieren
Sheets("Tabelle1").Activate
For i = 1 To 14
a = Cells(i, 1)
Sheets("Tabelle2").Activate
Cells(k, i) = a
Sheets("Tabelle1").Activate
Next i
End Sub

gruß
Uwe

nach oben   nach unten

Re: Spalte als Zeile in anderes Tabellenblatt?
von: Harald
Geschrieben am: 19.06.2002 - 10:14:56

Herzlichen Dank funktioniert einwandfrei

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalte als Zeile in anderes Tabellenblatt?"