Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige