title image


Smiley Daten aus Tabelle1 nach Tabelle2 in freie Zeile transponiert kopieren
Hallo Rolf,



dieses Makro sollte den Zweck erfüllen :

      

Sub BereichTransponierenUndInFreieZeileKopieren()

    'Kopiert einen transponierten Bereich der Tabelle1

    'in die nächste freie Zeile der Tabelle2, Spalte A

    Sheets(1).Range("C13:C21").Copy 'Bereich anpassen

    zeile = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1

    Sheets(2).Cells(zeile, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

    Application.CutCopyMode = False

End Sub

Es wird die nächste freie Zelle in Spalte A gesucht und die transponierten Daten in die entsprechende Zeile eingefügt.



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: