Das Makro soll dafür sorgen, dass man Text einträgt und das Skript schaut ob in der Zeile bereits Text steht, wenn ja soll der Text eine Zeile weiter unten erscheinen.

A1 -> Text JA?/NEIN? -> Wenn Ja dann Text in A2, wenn nein dann in A1, der Text(falls vorhanden) aus A1 soll nicht überschrieben werden!

A2 -> Text Ja?/Nein? -> Wenn Ja dann Text in A3, wenn nein dann in A2, der Text(falls vorhanden) aus A1 und A2 soll nicht überschrieben werden

Das ganze soll noch mit einer Infobox verbunden werden, aus der die Daten ausgelesen werden. Das ganze soll variable erweitert werden also A1 bis mind. A1000

Hab mehere Varianten ausprobiert  bisher bin ich soweit gekommen, dass wenn was in A1 steht, er es in A2 schreibt. Leider bekomme ich die Schleife nicht so hin, dass er auch weiter schiebt wenn in A2 was steht.

Sub Inputboxen()

Dim sTxt as String

sTxt = InputBox("Bitte ein Lebensmittelartikel eintragen", "Eingabefeld", "Ihr Eintrag", 1, 1)

   Range("A3").Select

   If ActiveCell = "" Then

   Range("A3").Value = sTxt

   ElseIf ActiveCell <> "" Then

   Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate

   ActiveCell = sTxt

   End If

End Sub

ander Ansatz:

For Each i In Range("A3:A100")
If ActiveCell = "" Then
Range("A3").Value = sTxt And i = i + 1
ElseIf ActiveCell <> "" Then
ActivCell = sTxt
End If
Next i
End Sub

Ist alles nicht erfolgsversprechend....

Vielen Dank im Vorraus

Gruß

Morre

Bin leider auch nicht sehr in VBA erfahren, eher Java...