|
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...
|