VBA Befehl wenn Zelle leer, nächste Zeile prüfen
13.03.2015 11:29:24
Fetl17
ich habe mir mal bisschen was zusammengebastelt...ich hab nur ein Problem mit folgendem Befehl:
es soll die Spalte L in Tabelle 2 mit der Spalte H der Tabelle 1 verglichen werden. Wenn die Werte übereinstimmen, sollen die werte aus Spalte I, J, und K (Tab1) in die Spalten H, I und J (Tab2) hineinkopiert werden. Ich denke das könnt Ihr aus dem Befehl herauslesen.
Sub Schaltfläche2_Klicken()
Dim rngQuelle As Range
Dim rngZiel As Range
With ThisWorkbook.Sheets("VK-Preise")
For Each rngZiel In .Range("L1:L" & .Cells(.Rows.Count, 6).End(xlUp).Row)
On Error Resume Next
If Zelle.Value "" Then
Set rngQuelle = ThisWorkbook.Sheets("Konfiguration").Range("H:H").Find(What:=rngZiel)
On Error GoTo 0
If Not rngQuelle Is Nothing Then
rngQuelle.Offset(0, 1).Resize(1, 3).Copy
rngZiel.Offset(0, -4).Resize(1, 3).PasteSpecial Paste:=xlPasteValues
End If
End If
Next 'rngZiel
End With
End Sub
Die Problematik:
1. er läuft sehr langsam
2. wenn die Zelle in Spalte L leer ist, werden leere Zellen eingefügt, das heißt - in diesem Fall werden in den Spalten H, I und J bereits vorhandene Werte gelöscht oder die Zelle geleert
Ich würde also eine Lösung benötigen, die im Falle einer Leeren Zelle, einfach die nächste prüft und nichts tut. --> ich denke, das würde die ganze Sache auch beschleunigen.
Vielen Dank im Voraus!
Gruß Frank
Anzeige