Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Was ist bei der For-Schleife falsch?

Was ist bei der For-Schleife falsch?
stefan
Hallo zusammen,
ich möchte Daten von einem Blatt kopieren - zeilenweise. Aber nur, wenn in der Zelle 12 der jeweiligen Zeile was drin steht und diese nicht leer ist.
Folgenden Code habe ich:
For iCntRows = 3 To 20
If Worksheets("Daten").Cells(iCntRows, 12) "" Then
Worksheets("Daten").Cells(iCntRows, 2).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 1)
Worksheets("Daten").Cells(iCntRows, 3).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 2)
Worksheets("Daten").Cells(iCntRows, 4).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 3)
Worksheets("Daten").Cells(iCntRows, 5).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 4)
Worksheets("Daten").Cells(iCntRows, 6).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 5)
Worksheets("Daten").Cells(iCntRows, 7).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 6)
Worksheets("Daten").Cells(iCntRows, 8).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 7)
Worksheets("Daten").Cells(iCntRows, 9).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 8)
Worksheets("Daten").Cells(iCntRows, 10).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 9)
Worksheets("Daten").Cells(iCntRows, 11).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 10)
Worksheets("Daten").Cells(iCntRows, 12).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 11)
Worksheets("Daten").Cells(iCntRows, 13).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 12)
Worksheets("Daten").Cells(iCntRows, 14).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 13)
Worksheets("Daten").Cells(iCntRows, 15).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 14)
Worksheets("Daten").Cells(iCntRows, 16).Copy ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 15)
End If
Next iCntRows
Leider werden die leeren Zellen aus dem Ursprungsblatt mitkopiert.
Was mache ich falsch?
Danke Euch vielmals.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Was ist bei der For-Schleife falsch?
11.10.2011 11:16:14
marcl
Hallo Stefan,
ich die Zelle wirklich leer? Mit Trim werden Leerzeichen am Anfang und ende abgeschnitten.
If Trim(Worksheets("Daten").Cells(iCntRows, 12)) "" Then
Vielleicht funktioniert es jetzt.
Gruß
marcl
AW: Was ist bei der For-Schleife falsch?
11.10.2011 11:17:42
Piet
Hallo Stefan,
bei mir nicht. Lad bitte eine Beispieldatei hoch, so kann ich keinen Fehler finden, außer dass die erste Zelle nicht mitkopiert wird.
Gruß
Piet
AW: Was ist bei der For-Schleife falsch?
11.10.2011 11:17:49
Rudi
Hallo,
Ursache sehe ich nicht.
Das reicht aber:

  With Worksheets("Daten")
For iCntRows = 3 To 20
If .Cells(iCntRows, 12)  "" Then
.Range(.Cells(iCntRows, 2), .Cells(iCntRows, 16)).Copy _
ThisWorkbook.Worksheets("Rohdaten").Cells(iCntRows - 1, 1)
End If
Next iCntRows
End With

Es sei denn, du tippst gerne ;-)
Gruß
Rudi
Anzeige
AW: Was ist bei der For-Schleife falsch?
11.10.2011 11:27:17
stefan
danke an Alle.
Leider werden immer noch leere Zellen mit einfügt. Ich bin echt ratlos. :-(
ermittle immer erst die letzte Zeile
11.10.2011 11:44:01
Matthias
Hallo
versuchs mal so:

 Sub test()
Dim iCntRows&
Dim Loletzte&
Loletzte = 1
With Worksheets("Daten")
For iCntRows = 3 To 20
If .Cells(iCntRows, 12)  "" Then
.Range(.Cells(iCntRows, 2), .Cells(iCntRows, 16)).Copy _
ThisWorkbook.Worksheets("Rohdaten").Cells(Loletzte, 1)
Loletzte = Worksheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Next iCntRows
End With
End Sub
statt Loletzte = Worksheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1
geht auch einfach Loletzte=Loletzte+1

Zieltabelle sollte natürlich vorher leer sein.
https://www.herber.de/bbs/user/76955.xls
Gruß Matthias
Anzeige
Zeil-Zähler
11.10.2011 11:28:42
Marc
Moin!
Du nimmst als Einfügemarke die kopierte Zeile minus 1, wenn du also eine Zeile überspringst, wird auch beim einfügen eine Zeile übersprungen.
Mach einen eigenen Zähler zum einfügen:

Sub Zeil_copy()
einfüg = 2
For iCntrows = 3 To 20
With Worksheets(1)
If .Cells(iCntrows, 12)  "" Then
.Range(.Cells(iCntrows, 2), .Cells(iCntrows, 16)).Copy Worksheets(2).Cells(einfüg,  _
1)
einfüg = einfüg + 1
End If
End With
Next iCntrows
End Sub

Gruß, Marc
AW: Zeil-Zähler
11.10.2011 11:37:36
stefan
Jaa, Marc. Das war es.
Vielen Dank!!
Ich schreib heute bestimmt noch die eine oder andere Frage hier :-)).
Anzeige

300 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
eine Schleife in Webabfrage
mehmet

Hallo Forum,
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
29.08.2008 09:30:05
Thread-ID: 1005675
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Anzeige
Schleife einbauen und variabler Tabellenname
Markus

Hallo zusammen,
nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
16.10.2008 19:25:00
Thread-ID: 1016959
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
momentanen Wert der For-Schleife anzeigen
Joachim

Hallo,
ich habe eine For-Schleife, die ca. 5600 mal durchlaufen wird. In der Schleife werden viele IFs abgeprüft, was die Schleife langsam macht.
FOR s = 2 to irow
IF ...
NEXT s
Ich würde gerne wissen, bei welchem Wert s die Schleife momentan ist.
Eine MsgBox unterbricht...
11.11.2008 10:02:24
Thread-ID: 1023432
4 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
1
6
4
2
7
3
8
3
5
11
8
2
5
7
4
8
2
4
3
2
8
11
4