Office: Erste Zelle , der markierten Zeile (ActiveCell.Adress)

Hallo !

Wie kriege ich die erste Zelle in der aktuell markierten Zeile, die Leer ist. Danach soll sich eine Inputbox öffnen, die dann die Werte für diese Zelle übernimmt.
Ich dachte an so was wie


If ActiveCell.Adress = "" Then
...
Inputbox....




Weiter weiss ich nicht. Hat mir jemand eine Lösung ?
Vielen Dank für eure Mühe!!!

 

Hi,

eine Möglichkeit:

Code:

Range(Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Address).Cells(1) = InputBox("Bitte Wert eingeben")

Bis später,
Karin

 

Vielen Dank Karin!

Ist genau das was ich gesucht habe, funktioniert einwandfrei. Perfekt!

Grüße

 

Allerdings fehlt mir noch eine Kleinigkeit...ich habe deinen Code nun mehrmals hintereinander eingefügt und den Wert in "Cells " abgeändert in der Hoffnung dass ich die nächste Zelle in der Zeile eintrage. Stattdessen springt der Cursor auf den die nächste Zelle der Spalte.
Also:

Code:

Range(Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Address).Cells([color=red]1[/color]) = InputBox("Bitte Wert eingeben")
Range(Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Address).Cells([color=red]2[/color]) = InputBox("Bitte Wert eingeben")
Range(Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Address).Cells([color=red]3[/color]) = InputBox("Bitte Wert eingeben")

Wie kann ich das ändern? 
Danke!

 

wozu musst du den Code mehrmals hintereinander schreiben? Wenn du ihn erneut ausführen willst, musst du nur diese eine von mir gepostete Zeile erneut ausführen, dann wird die Inputbox erneut aufgerufen und der neue Inhalt in die nächste leere Zelle der aktiven Zeile eingetragen.

Bis später,
Karin

 

Ok, danke - hab den Code so gelesen, dass der Wert der bei Cells steht, auch immer die folgende Zelle anspricht. Läuft jetzt fast perfekt. Kannst du mir noch sagen, wie ich bestimmte Spalten ignorieren/ überspringen kann?
Damit hätte ich es endlich...
Grüße m10

 

einen Code sollte man nicht nur lesen, sondern auch testen ;-)

Nach diesem Prinzip (Auslassen von Spalte B):

Code:

    If Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Cells(1).Column <> 2 Then
        Range(Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks).Address).Cells(1) = _
            InputBox("Bitte Wert eingeben")
    End If

Bis später,
Karin

 

Als VBA Neuling versuche ich natürlich auch immer den Code zu verstehen, was mir nicht immer auf anhieb gelingt... Tausend Dank ... Du hast mich mit Deiner Hilfe gerettet. Schönen Tag!

Gruß
m10