Microsoft Excel

Herbers Excel/VBA-Archiv

Eine Zeile weiterrücken

Betrifft: Eine Zeile weiterrücken von: Kim
Geschrieben am: 19.08.2004 13:52:54

Hi,

ich möchte, dass mein Makro überprüft, ob die gerade aktive Zelle leer ist oder nicht. Wenn die Zelle ausgefüllt ist, dann soll er in die nächste Zeile rücken bis er eine leere Zelle findet.
Wie lautet denn der Befehl, um eine Zeile weiter zu rücken?

Vielen Dank,
Kim

  


Betrifft: AW: Eine Zeile weiterrücken von: Magic
Geschrieben am: 19.08.2004 13:55:29

Hallo Kim,

activecell.offset(0,1).select

damit aktivierst Du die zelle unter der gerade aktiven Zelle.

Gruß
Michael


  


Betrifft: AW: Eine Zeile weiterrücken von: Kim
Geschrieben am: 19.08.2004 14:01:30

Hi Michael,

ich habe diesen Vorgang versucht in einer While..Wend Schleife zu programmieren, aber irgendetwas stimmt nicht. Wäre super, wenn Du mir weiterhelfen könntest.

Range("A3").Select
While Range("A3") <> ""
ActiveCell.Offset(0, 1).Select
Wend

Gruß Kim


  


Betrifft: AW: Eine Zeile weiterrücken von: Magic
Geschrieben am: 19.08.2004 14:09:14

Hallo Kim,

while wend kenne ich nicht unter vba:

Sub weiter()

Range("A3").Select
    Do
    If IsEmpty(ActiveCell) Then
        Exit Do
    Else
        ActiveCell.Offset(1, 0).Select
    End If
Loop
End Sub


Gruß
Michael


  


Betrifft: AW: Eine Zeile weiterrücken von: Kim
Geschrieben am: 19.08.2004 14:13:29

Vielen Dank!

Grüße,
Kim