409 Aufrufe
Gefragt in Tabellenkalkulation von m-o-m Mitglied (499 Punkte)
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

3 Antworten

0 Punkte
Beantwortet von
hi Maik ^^

Da wärst bestimmt auch selbst darauf gekommen :-)

Gruss nighty

For i = 2 To 1000
0 Punkte
Beantwortet von
hi Maik ^^

deine 2 und 3 schleife sind unvollstaendig und produzieren unnötige fehler :-)
deine variablen sollten eindeutige Bezeichnungen haben,
so das du auch nach einiger zeit das makro schnell überarbeiten kannst!

gruss nighty
0 Punkte
Beantwortet von m-o-m Mitglied (499 Punkte)
Hallo nighty,

Besten Dank für Lösung.

Mal wieder ganz großes Kino hier. :-)

Zu der Vollständigkeit:

Der Code ist nur eine Ausschnitt aus dem Makro. Ich frickel damit rum versuche hier nicht mehr kaputt zu machen, als vorher da war. :-)

Naochmal DANKE

Maik
...