Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vba; eine Zeile weiter nach unten...

Vba; eine Zeile weiter nach unten...
Lucas
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
schreib uns doch mal, was du schon hast...
18.12.2009 21:22:20
Björn
... dann können wir dir auch helfen.
Zeig uns Dein Makro, besser lade gleich Deine Mappe hoch.
Gruß
Björn B.
AW: Vba; eine Zeile weiter nach unten...
18.12.2009 23:43:28
Gerd
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
Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige