Schleifenfunktion

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!!

Ich habe eine Exceltabelle, die ich gerne teilweise auswerten würde.
In der ersten Spalte stehen verschiedene Begriffe.
Es soll eine Schleife programmiert werden, die die erste Spalte durchläuft, bis sie in die erste leere Zelle kommt. Gleichzeitig soll die Schleife prüfen, ob in einer Zelle ein bestimmter Inhalt steht, z.B. hallo. Ist dies der Fall, dann soll die ganze Zeile, die die Zelle Hallo beinhaltet kopiert werden. Genauso soll auch mit allen anderne Zellen verfahren werden, deren Inhalt hallo ist.
All diese kopierten Zeilen sollen dann in ein anderes Datenblatt eingefügt werden, so dass ich auf dem zweiten Datenblatt nur Angaben mit hallo habe.
Ich habe schon alles möglcihe ausprobiert, komme aber zu keinem Ergebnis. Ich weiß echt nicht mehr weiter. Wäre super, wenn mir hier jemand nen Tipp geben könnte.

Schonmal danke und liebe Grüße

Claudia

#2

Hallo Claudia

Ich habe eine Exceltabelle, die ich gerne teilweise auswerten
würde.
In der ersten Spalte stehen verschiedene Begriffe.
Es soll eine Schleife programmiert werden, die die erste
Spalte durchläuft, bis sie in die erste leere Zelle kommt.
Gleichzeitig soll die Schleife prüfen, ob in einer Zelle ein
bestimmter Inhalt steht, z.B. hallo. Ist dies der Fall, dann
soll die ganze Zeile, die die Zelle Hallo beinhaltet kopiert
werden. Genauso soll auch mit allen anderne Zellen verfahren
werden, deren Inhalt hallo ist.
All diese kopierten Zeilen sollen dann in ein anderes
Datenblatt eingefügt werden, so dass ich auf dem zweiten
Datenblatt nur Angaben mit hallo habe.
Ich habe schon alles möglcihe ausprobiert, komme aber zu
keinem Ergebnis. Ich weiß echt nicht mehr weiter. Wäre super,
wenn mir hier jemand nen Tipp geben könnte.

Ich denke, das Einfachste wäre es über das Menu Daten…Filter…Autofilter. Dann in der entsprechenden Spalte den Filter setzen und die ausgewählten Zeilen von Hand in das andere Datenblatt kopieren.

Gruss
Peter

#3

hallo claudia,

ich setze beim überprüfen einer spalte am ende immer ein „END“. ist sicherer als auf eine leere Zelle zu überprüfen.

dim zeile as long
dim hallozeile as long

zeile = 1
hallozeile = 1

do until cells(zeile, 1) = "END"

if cells(zeile, 1) = "hallo" then
sheets(2).cells(hallozeile, 1) = cells(zeile, 1)
hallozeile = hallozeile + 1
end if

zeile = zeile +1
loop

so das sollte helfen

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]