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

Zeilen auf anderes Tabellenblatt übertragen

Zeilen auf anderes Tabellenblatt übertragen
12.12.2005 10:42:45
Dominik
Hallo zusammen!
Habe hier folgenden Code, der aus Spalte L in Blatt1 Werte herauslesen soll und dann die Zeile in Blatt2 kopieren soll:
Dim i As Integer
Dim iAnz As Integer
Const Blatt1 = "Until"
Const Blatt2 = "Ziel"
Sheets("Blatt1").Activate
Range("L1").Select
iAnz = 0
i = 0
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "1" Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("Blatt1").Select
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"^
Doch leider sagt er mir immer, dass 0 Sätze übertragen wurden, obwohl ich doch sehe, dass in Spalte L der Wert 1 mind. 6x vorkommt!
Wer kann mir helfen das Problem zu lösen?
Danke, Dominik

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen auf anderes Tabellenblatt übertragen
12.12.2005 13:26:29
Galenzo
iAnz wird einmalig auf 0 festgelegt und bleibt dann unverändert.
Mußt du irgendwo mitzählen...
Viel Erfolg!
AW: Zeilen auf anderes Tabellenblatt übertragen
12.12.2005 14:46:18
Dominik
Hat sich erledigt, trotzdem Danke!
Gruß, Dominik
Anzeige

336 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige