VBA Anzahl Zeilen in Makro übernehmen
07.01.2021 16:48:48
Marko
wie kann ich in dieses Makro folgende Abfrage einbauen?
Die erste Zeile in der Tabelle "Nobilia" Spalte DC14 bis DC1000 ermitteln, deren Wert 0 ist. Als Beispiel sind die Zellen DC14 bis DC550 größer als 0. Diesen Zeilenwert (z.B. 551) möchte ich in dieses Makro einarbeiten, um das Kopieren von der Zeile 14 bis zu der ermittelten Zeile (z.B. 551) vorzunehmen.
Wie kann ich das lösen? Vielen Dank für Eure Unterstützung.
Sub Uebertragen()
Dim Daten As Variant
Dim BV As Variant
Dim raBereich As Range
Dim leereZeile
Dim X As Variant
Dim i As Long
Daten = Sheets("Nobilia").Range("DB14").Value
Application.ScreenUpdating = False
Sheets("Nobilia").Range("DB14,DC14,LA14:LH14").Copy
Sheets("BV").Activate
leereZeile = Sheets("BV").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To Sheets("BV").Cells(Rows.Count, 1).End(xlUp).Row
BV = Sheets("BV").Cells(i, 1).Value
If Daten = BV Then
X = Sheets("Nobilia").Range("DB14").Value
If WorksheetFunction.CountIf(Sheets("BV").Columns("A"), X) > 0 Then
If MsgBox("Der Block " & CStr(X) & " ist bereits vorhanden. Trotzdem einfügen?", vbYesNo) = _
vbNo Then Exit Sub
End If
Else
Sheets("BV").Range("A" & leereZeile).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
End If
Next
Application.CutCopyMode = False
End Sub
Anzeige