Wenn Zelle leer dann weiter in nächster Zelle! VBA
27.10.2016 07:29:07
Nilo
guten Morgen!
Manchmal kommt alles auf einmal :)
Ich habe einen Simplen Svwerweis den ich per Value in eine Zelle eintrage und runterziehe:
Range("E18").Value = "=IFERROR(VLOOKUP(RC[2],Atk!C[-4]:C[-2],3,0),"""")"
Range("E18:E" & Cells(Rows.Count, "A").End(xlUp).Row).FillDown
Calculate
Jetzt kommt es aber vor das in einer Zelle in E schon etwas drin steht!
Das soll stehen bleiben, also diese Zelle überspringen und mit der nächsten ungefüllten weitermachen, bis letzte!
Also habe ich so angefangen, komme aber mal wieder nicht auf die Antwort!
Dim i As Long,
Dim leZeile As Long
leZeile = Tabelle8.Range("E65536").End(xlUp).Row
With Tabelle8
For i = 18 To leZeile
If .Cells(i, 5) = "" Then (und hier steig ich schon aus, ich komm nicht drauf wie das hier weitergehen soll!)
Besten Dank schon einmal für Eure Hilfe.
Gruß
Nilo