Microsoft Excel

Herbers Excel/VBA-Archiv

Variable Spalte kopieren

Betrifft: Variable Spalte kopieren von: Peter
Geschrieben am: 20.10.2014 20:26:22

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

  

Betrifft: AW: Variable Spalte kopieren von: Peter
Geschrieben am: 20.10.2014 21:30:06

Hallo Leute ich habe mein Problem gerade selbst behoben:
For i = 4 To 34 'suche Spalte 4 bis 34 nach aktuellen Datum
If Cells(2, i) = Date Then 'wenn Zelle in Zeile 2 = aktuelles Datum, dann

a = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(5, i), Cells(a, i)).Copy
Vielen Dank trotzdem

Gruß Peter


 

Beiträge aus den Excel-Beispielen zum Thema "Variable Spalte kopieren"