Variable Spalte kopieren
20.10.2014 20:26:22
Peter
Ich bitte um Hilfe
Ich suche in den Zellen D2 bis AH2 nach dem aktuellen Datum, bei Erfolg kopiere ich die Spalte von Zelle 2 bis Zelle 39. Nun meine Frage!! In der Spalte A sind unterschiedlich viele Enträge, wenn zum Beispiel in Spalte A4:A in Zeile A45 die erste Leere Zelle ist möchte ich die Zellen 2 bis 44 kopieren.
Mein Code sieht so aus.
Dim i As Integer
For i = 4 To 34
If Cells(2, i) = Date Then
Range(Cells(5, i), Cells(39, i)).Copy
Vielen Dank im voraus
Gruß Peter