Hallo Zusammen,
mit folgender Prozedur wird eine selektierte Zelle aus Tabellenblatt 1 in Tabellenblatt 2 Spalte A fortlaufend kopiert.
Sub Kopieren()
Dim i as integer
Selection.Copy
Sheets("Tabelle2").Select 'Name deines Tabellenblatts für Werte einfügen
Range("A1").Select
For i = 1 To 5700
If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select Else Exit For 'falls Zelle voll -> nächste Zelle
Next i
ActiveSheet.Paste 'fügt die Werte ein
Sheets("Tabelle1").Select 'geht zurück zum Blatt 1
Application.CutCopyMode = False 'nimmt das kopieren zurück
MsgBox "Die Werte wurden erfolgreich kopiert." 'Info
End Sub
Ich möchte aber, dass der Inhalt aus Tabelle1 in einer anderen Spalte in Tabelle 2 kopierrt wird.
Danke für die Hilfe
Ferdi
|