Code variabel gestalten mit InputBox
03.11.2012 22:07:53
Erwin_Geer
im Forum habe ich einen Code von Martin Beck / 19.12.2002 gefunden, der leere Zellen auffüllt:
Sub Auffüllen()
Application.ScreenUpdating = False
z = Range("B65536").End(xlUp).Row - 1 'für Excel 2010: 1048576
For I = 1 To z
If IsEmpty(Cells(I + 1, 2)) Then
Cells(I + 1, 2) = Cells(I, 2)
End If
Next I
Application.ScreenUpdating = True
End Sub
Leider ist das immer nur Splate "B" - ich bräuchte das Makro auch für unterschiedliche andere Spalten.
Ich dachte an eine InputBox, wo ich die Spalte angeben kann, die ich benötige.
Wer kann mir hier bitte helfen?
Grüße
Erwin