Hallo ihr Excelkönner,
Ich habe eine Tabelle, die mit einem Makro arbeitet (Auszug siehe unten).
So wie ich das lese (als VBA-Analphabet) arbeitet Excel stumpf alle Zeilen ab.
Meine Frage jetzt: Wie kann ich die Zeilen eingrenzen. Start soll Zeile 2 sein, Ende Zeile 1000?
Schon mal vorab
VIELEN DANK fürs lesen, nachdenken und (hoffentlich) lösen.
Gruß Maik
Sub LeerZellenFuellen()
' Tastenkombination: Strg+q
For i = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
If Len(Cells(i, 3)) = 1 Then Cells(i, 3) = "W/WBZ/0000" & Cells(i, 3).Value & "/2017"
If Len(Cells(i, 3)) = 2 Then Cells(i, 3) = "W/WBZ/000" & Cells(i, 3).Value & "/2017"
If Len(Cells(i, 3)) = 3 Then Cells(i, 3) = "W/WBZ/00" & Cells(i, 3).Value & "/2017"
If Len(Cells(i, 3)) = 4 Then Cells(i, 3) = "W/WBZ/0" & Cells(i, 3).Value & "/2017"
If Len(Cells(i, 3)) = 5 Then Cells(i, 3) = "W/WBZ/" & Cells(i, 3).Value & "/2017"
Next i
lastrow = Range("D:D").SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lastrow
If Range("D" & i).Value = "§64" Then
For Each c In Range("e" & i)
If c.Value = "" Then c.Value = ("Null")
End If
End Sub