Microsoft Excel

Herbers Excel/VBA-Archiv

Vba; eine Zeile weiter nach unten... | Herbers Excel-Forum


Betrifft: Vba; eine Zeile weiter nach unten... von: Lucas
Geschrieben am: 18.12.2009 19:46:03

Ahoi Leute,

ich hab mal nen Problem:

ich brauche einen Makro, der folgendes tut:
Schreibe in Zelle A1 die Zahl a=1;
Prüfe, ob in Zelle B1 der Text "Ja" steht;
Wenn "Ja": Schreibe in Zelle C1 die Zahl a;
Wenn nicht "Ja": nichts
Schreibe in Zelle A1 den Wert a+1;
Prüfe, ob in Zelle B1 der Text "Ja" steht;
Wenn "Ja": Schreibe in die nächste freie Zelle unter C1 die Zahl a+1;
Wenn nicht "Ja": nichts
Wiederhole das, bis a=20

Hoffentlich habe ich das mal verständlich formuliert...
Mein Problem dabei ist, wie ich es anstelle, das Excel eben nicht eine bestimmte Zelle auswählt, und dort etwas hineinschreibt, sondern einfach die nächste freie Zelle auswählt...

Das Programm soll dazu dienen eine Zahlen von 1 bis 20 auf bestimmen Eigenschaft zu prüfen.
Wär nett, wenn jemand ein solches Programm hier reinstellt...

Danke im Vorraus


  

Betrifft: schreib uns doch mal, was du schon hast... von: Björn B.
Geschrieben am: 18.12.2009 21:22:20

... dann können wir dir auch helfen.

Zeig uns Dein Makro, besser lade gleich Deine Mappe hoch.

Gruß
Björn B.


  

Betrifft: AW: Vba; eine Zeile weiter nach unten... von: Gerd L
Geschrieben am: 18.12.2009 23:43:28

Hallo Lucas,

die Fragen, weshalb B1 zwanzigmal geprüft werden soll u. warum A1 im Ergebnis mit 20 gefüllt werden soll, kann ich mir leider nicht verkneifen. ;-)

Sub a()
Dim lngZahl As Long

For lngZahl = 1 To 20

Cells(1, 1) = lngZahl
If Cells(1, 2).Text = "Ja" Then
Cells(IIf(IsEmpty(Cells(1, 3)), 1, IIf(IsEmpty(Cells(2, 3)), 2, _
Cells(1, 3).End(xlDown).Row + 1)), 3) = lngZahl
End If

Next

End Sub
Gruß Gerd


Beiträge aus den Excel-Beispielen zum Thema "Vba; eine Zeile weiter nach unten..."