aus Zelle Text Spalte kopieren
18.06.2006 12:48:52
Wolfgang
den nachfolgenden Code hatte mir in den vergangenen Tagen Franz zur Verfügung gestellt. Er bewirkt, dass aus einem Tabellenblatt die gefüllten Zellen in die vorgegebene Spalte des aktiven Tabellenblattes kopiert werden. Nun würde ich noch ergänzend gerne erreichen, dass der Inhalt der Zelle F1 -im aktiven Zellenblatt- an jeden Datensatz, der hineinkopiert wird, in Spalte H geschrieben wird. Ich habe das mit folgender Ergänzung versucht, bekomme aber lediglich immer nur die erste Zelle gefüllt. Kann mir da evtl. jemand Hilfestellung geben? - Danke schon jetzt für die Rückmeldung.
Herzliche Grüße
Wolfgang
Hier meine nicht funktionierende Ergänzung
Range("F1").copy
Cells(Zeile, 8).Value = Range("F1")
Hier der Code:
Sub test()
Dim wksDaten As Worksheet
Set wksDaten = ActiveWorkbook.Sheets("Daten")
Spalte = "D" ' Spalte in der eingefügt werden soll
Zeile = ActiveSheet.Cells(65536, Spalte).End(xlUp).Row + 1 'Nächste leere Zeile in Spalte
With wksDaten
.Range(.Cells(2, "A"), .Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A")).Copy Destination:=ActiveSheet.Cells(Zeile, Spalte)
End With
End Sub