Leerzeile bei WerteWechsel in aktivierter Spalte
Markus
in meiner MakroSammlung (Formular) habe ich folgenden Befehl.
Dieser fügt automatisch ab der 3. Zeile eine Leerzeile ein, wenn der Wert in Spalte A wechselt.
Kann man dieses Makro so anpassen, dass die Prüfung des Wertewechsels in der momentan aktivierten Spalte geprüft, bzw. ausgeführt wird.
z.B. meine aktive Zelle ist, F71, so wird in der Spalte F der Wertewechsel geprüft und entsprechend Leerzeilen eingefügt.
Jetzt schon herzlichen Dank für eine Antwort oder Hilfestellung.
Markus
Private Sub Leerzeile_einfuegen_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' ab A3 Leerzeile einfügen bei WerteWechsel
Dim StartZeile As Long
StartZeile = 3
Unload Me
Do
If Cells(StartZeile, 1) Cells(StartZeile - 1, 1) Then
Rows(StartZeile).Insert
StartZeile = StartZeile + 1
End If
StartZeile = StartZeile + 1
Loop Until Cells(StartZeile, 1) = ""
End Sub
Anzeige