Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fehler im code

Forumthread: fehler im code

fehler im code
28.07.2004 12:55:36
porbsi
Kann mir jemand sagen wieso dieser Code nicht funktioniert

Sub zeile()
' zeile Makro
' Makro am 28.07.2004 von QT30756 aufgezeichnet
Dim i As Integer
i = 2
Do
Rows("i:i").Select   --- das hier geht nicht
Selection.Insert Shift:=xlDown
i = i + 2
Loop Until Rows("i:i") = Null
End Sub

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fehler im code
Karl
Rows sind Zeilen, keine Spalten. Du sprichst die Spalte I an.
Try this:
Rows(i).select
AW: fehler im code
porbsi
ok das scheint jetzt zu funktionieren allerdings geht die until bedingung nicht
hast du eine ahnung was ich eingeben muß um zu stoppen wenn ich in der letzten Zeile angekommen bin, also wenn die nächste zeile leer ist
Anzeige
AW: fehler im code
Hans
try this
For i = 2 To 1000
Cells(i, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
i = i + 1
Next
grüße
hans
AW: fehler im code
porbsi
der hake daran ist ich will das ganze wirklich nur solange durchführen bis nichts mehr in den zeilen steht
es geht nämlich um mitarbeiter können ja einmal nur 50 sein oder einmal über 1000
Anzeige
AW: fehler im code
28.07.2004 13:28:59
basti
machste halt ne do while, die die einträge zaehlt.
dim k as integer
do while cells(k.1) ""
k=k+1
loop
For i = 2 To 1000
Cells(i, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
i = i + 1
Next
gruss basti
AW: fehler im code
Hans
machs halt bis 10000
AW: fehler im code
Karl
Du kannst die Abbruchbedingung wie folgt formulieren

Sub zeile()
Loop Until i>ActiveSheet.UsedRange.Rows.Count
End Sub

Anzeige
DANKE
porbsi
Funktioniert Einwandfrei DANKE
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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