End(xlUp).Row ab bestimmter Zeile
16.12.2017 21:22:43
MB12
aus einer bestehenden Datei übertrage ich verschiedene Werte aus einem formatierten Bereich in weitere Formulare.
Die Werte beginnen in Zeile 3 (A:L)und gehen bis MAXIMAL Zeile 24. Zeile 25 ist immer leer, aber auch formatiert. Ab Zeile 26 starten andere Daten, die nicht einbezogen werden dürfen.
Mit dem jetzigen Code müsste ich in eine Hilfsspalte weiter rechts Werte eintragen, wenn eine Zahl in Spalte B eingetragen ist (z.B. =WENN(B3="";"";"x")).
Da aber nicht alle Kollegen sauber arbeiten, kann es sein, dass irgendwo irrtümlich ein Wert in der Hilfsspalte auftaucht.
Deshalb würde ich den Code gerne abändern und die Spalte B abfragen, aber erst ab Zeile 25 nach oben.
Habe die Lösung einfach nicht gefunden.
Hier ein kleiner Ausschnitt aus meinem Code:
Private Sub CommandButton2_Click()
Dim owb1 As Workbook
Dim owb2 As Workbook
Dim owb3 As Workbook
Dim lletzte As Long
Set owb1 = ThisWorkbook
Set owb2 = Workbooks.Open("X:\Formular2.xlsm")
lletzte = owb1.Worksheets("Ablaufplan").Cells(Rows.Count, 2).End(xlUp).Row
owb2.Worksheets("Tabelle1").Range("B19:D" & lletzte + 16) = _ owb1.Worksheets("Ablaufplan"). _
Range("B3:D" & lletzte).Value
End Sub
Gruß, Margarete
Anzeige