Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Code variabel gestalten mit InputBox

Betrifft: Code variabel gestalten mit InputBox von: Erwin_Geer
Geschrieben am: 03.11.2012 22:07:53

Guten Abend,

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

  

Betrifft: AW: Code variabel gestalten mit InputBox von: Gerd L
Geschrieben am: 03.11.2012 23:02:32

Hallo Erwin!

Sub Auffüllen()

Dim X As Range
Dim Z As Long, I As Long

On Error Resume Next
Set X = Application.InputBox("Bitte in Spalte klicken!", "Spalte auffüllen", Type:=8)
On Error GoTo 0
If X Is Nothing Then Exit Sub
Z = Columns(X.Column).Cells(Rows.Count).End(xlUp).Row - 1
If Z = 0 Then Exit Sub
Application.ScreenUpdating = False
For I = 1 To Z
    If IsEmpty(Cells(I + 1, X.Column)) Then
        Cells(I + 1, X.Column) = Cells(I, X.Column)
    End If
Next I

End Sub

Gruß Gerd


  

Betrifft: AW: Code variabel gestalten mit InputBox von: Erwin_Geer
Geschrieben am: 03.11.2012 23:13:18

Hallo Gerd,
schaut super aus und funktioniert genau so super.
Herzlichen Dank
Grüße
Erwin


 

Beiträge aus den Excel-Beispielen zum Thema "Code variabel gestalten mit InputBox"