Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleifen..... )-:

Schleifen..... )-:
07.07.2003 13:38:41
david
Hallo liebes Forum,
ich hab zwei sheets, und möchte aus einer Tabelle (Blatt1) Daten ins Blatt2 schicken. Erstmal kein Problem.
Nun habe ich aber eine weitere Bedingung in Spalte3 (ja/nein). Es sollen nur die Zeilen übertragen werden, wo diese Bedingung auf "ja" steht, und da dreh ich mich immer wieder im Kreis. Kann mir da jmd weiterhelfen?
Zaehler = 6
While Cells(Zaehler, 1).Value <> ""
For Zaehler = 6 To 20

Worksheets("pc information").Cells(Zaehler, 2).Value = Cells(Zaehler, 1).Value
Wend
Vielen Dank und viele Grüße
David

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleifen..... )-:
07.07.2003 13:49:58
david
Hi Benedikt,
hab mich wahrscheinlich etwas zu kurz gefasst. Die Spalte1 darf aber auch wirklich nur solange durchsucht werden, bis nichts mehr drin steht, also muss ich zwei Schleifen verschachteln und da tu ich mich gerade etwas schwer.
Falls du eine Idee hast würds mich freuen
Gruß
David

AW: Schleifen..... )-:
07.07.2003 13:43:24
Benedikt Aichinger
Ja bau halt eine If Abfrage ein!!
For zeile = 6 To 20
if Cells(zeile,3)="JA" then
Worksheets("pc information").Cells(Zaehler, 2).Value = Cells(Zaehler, 1).Value
End if
Next zeile
lg,
Benedikt

AW: Schleifen..... )-:
07.07.2003 14:31:13
david
ok
danke
David

AW: Schleifen..... )-:
07.07.2003 14:20:48
Benedikt Aichinger
Dann schreibst:

Sub suchen()
Dim zeile as integer
For zeile = 6 To 20
if Cells(zeile,3)="JA" then
Worksheets("pc information").Cells(Zaehler, 2).Value = Cells(Zaehler, 1).Value
end If
if Cells(zeile,3)="" then
Exit Sub
End if
Next zeile
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige