zelle kopieren bis zum nächsten Wert
16.06.2006 11:28:53
Anton
ich habe in Spalte A nur ab und zu einen Text stehen er beginnt immer mit "Application" dies sind meine Überschriften
In Spalte B habe ich massenweise Daten.
Ich möchte nun die Überschrift so lange nach unten kopieren wie die Zellen in Spalte A leer sind.
Danach das gleiche mit der nächsten Überschrift.
Hier mein bisheriger (fehlerhafter) Code:
Sub H_ApplicationNach_unten_Kopieren()
' "Application" bis zum nächsten "Application" runterkopieren
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 2 Step -1
If Cells(i, 1).Value Like "*Application*" Then
'Autofill aus Aufzeichnung:
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
Range("A2:A26").Select
Range("C2").Select
'alter Kopierbefehl: Cells(i, 2) = Cells(i, 1).Value
End If
Next i
End Sub
Wer kann mir bitte weiterhelfen.
Ich dachte vielleicht auch an ein "Firstcell" und "Lastcell"
Funktioniert auch ein "End(xlDown).Row" damit Excel von oben nach unten arbeitet?
Und wie war das gleich wieder mit dem Datenende? Denn Excel soll ja kopieren bis Spalte B leer ist.
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton
Anzeige