Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
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
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Next Schleife Abbruchvariable innen erhöhen

For Next Schleife Abbruchvariable innen erhöhen
Svent
Hallo, ich habe ein Problem, bei welchem ich über VBA in einer Tabelle in einer For-Next-Schleife Zeilen einfügen muß, die Schleife soll aber bis zum Ende der Tabelle gehen. Folgende Lösung arbeitet nicht zufriedenstellend, wenn zeilen eingefügt werden. Die Variable Last_row wird wird unten in der Schleife
tadellos erhöht, jedoch hat die Erhöhung keinen Einfluß auf die Anzahl der Durchläufe.
Hat jemand eine Idee, wie man es gestalten könnte?
Sub KM_Neurechnen()
start_row = 2
last_row = Cells(Rows.Count, 1).End(xlUp).Row
For n = start_row To last_row
strecke = Cells(n, 5).Value
kma = Cells(n, 6).Value
kme = Cells(n, 7).Value
Rows(n).Select
Selection.Copy
If strecke + kma last_row = last_row + 1        ' Ham wir ne zeile mehr !
End If
MsgBox Str(n) + " " + Str(last_row)
Next n
End Sub
Danke
Svent
AW: For Next Schleife Abbruchvariable innen erhöhen
09.08.2010 18:18:14
mpb
Hallo,
wenn Zeilen eingefügt werden sollen, ist es zweckmäßig, den Bereich von unten nach oben zu durchlaufen. Dann erspart man sich das hochzählen von Variablen.
Ungetestet und um die selects und active-irgendwas bereinigt:
Sub KM_Neurechnen()
start_row = 2
last_row = Cells(Rows.Count, 1).End(xlUp).Row
For n = last_row To start_row Step -1
strecke = Cells(n, 5).Value
kma = Cells(n, 6).Value
kme = Cells(n, 7).Value
If strecke + kma
Gruß
Martin
AW: For Next Schleife Abbruchvariable innen erhöhen
10.08.2010 04:49:21
Svent
Danke, ich muß das Fahrtenbuch aber von oben nach unten rechnen. Es gibt da noch einen ElseIf der wichtig ist, den ich aber der Einfachheit wegen nicht mitgeschrieben habe. Meine Frage war nicht was zweckmäßig ist, sondern wie man hinkriegt, daß die Abbruchvariable Last_row in der Schleife verändert werden kann und die Schleife dann entsprechend öfter durchlaufen wird.
Vielen Dank
Svent
Anzeige
AW: For Next Schleife Abbruchvariable innen erhöhen
10.08.2010 06:43:11
BoskoBiati
Hallo,
auch wenn man Schleifen nicht während des Laufs erhöhen sollte, hier mal ein Ansatz, der noch einige Fehler beseitigt. Die Zeile wird nach der Fahrt (ansonsten wirds problematisch mit dem n+1) eingefügt und die km-Zahlen angepaßt. Es wäre auch nicht schlecht, wenn in Spalte A eine Eintragung erfolgen würde, da das Makro sonst die letzte Zeile falsch berechnet, wenn neue Zeilen eingefügt werden.
Sub KM_Neurechnen()
Dim last_row As Long
Dim loN As Long
Dim strecke As Long
Dim lokmA As Long
Dim lokmE As Long
Dim loZuviel As Long
Dim loNeukmE As Long
Dim strZiel As String
Dim loStrecke As Long
last_row = Cells(Rows.Count, 1).End(xlUp).Row + 1
loN = 2
Do Until loN = last_row
loStrecke = Cells(loN, 5)
lokmA = Cells(loN, 6)
lokmE = Cells(loN, 7)
Cells(loN, 7) = Cells(loN, 5) + Cells(loN, 6)
If strecke + lokmA
Gruß
Bosko
Anzeige
AW: For Next Schleife Abbruchvariable innen erhöhen
10.08.2010 11:41:48
BoskoBiati
Hallo,
hier noch ein paar Verschlankungen:
Option Explicit
Sub KM_Neurechnen()
Dim last_row As Long
Dim loN As Long
Dim strecke As Long
Dim lokmA As Long
Dim lokmE As Long
Dim loZuviel As Long
Dim loNeukmE As Long
Dim strZiel As String
Dim loStrecke As Long
last_row = Cells(Rows.Count, 1).End(xlUp).Row + 1
loN = 2
Do Until loN = last_row
loStrecke = Cells(loN, 5)
lokmA = Cells(loN, 6)
lokmE = Cells(loN, 7)
Cells(loN, 7) = Cells(loN, 5) + Cells(loN, 6)
If strecke + lokmA

AW: For Next Schleife Abbruchvariable innen erhöhen
10.08.2010 19:23:46
Svent
Hallo und recht vielen Dank, man hätte auch selber drauf kömmen können, es mit einer ... do while-Schleife zu versuchen.
Das komische Cells(n,x).select hatte mir der Macrorecorder erzeugt und ich habs einfach so gelassen. Deine Variante ist naürlich die richtige. Ich habe vom VBA nicht viel Ahnung (habe früher mal umfangreichere Sachen im Clipper geschrieben) jedoch die Grundlagen sind ja halbwegs gleich.
Warum muß man eigentlich den Datentyp vorher festlegen, ich habe es ohne Datentyp-Belegung probiert und es funktioniert tadellos.
Nochmals Danke.
Svent
Anzeige
AW: For Next Schleife Abbruchvariable innen erhöhen
10.08.2010 19:52:50
BoskoBiati
Hallo,
mit Festlegung des Datentyps werden Typ-Fehler sofort erkannt, weil das Programm aussteigt und, und, ...
Es gibt ganze Abhandlungen darüber, es macht einfach Sinn.
Gruß
Bosko

307 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
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 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
1
5
5
6
10
13
10
12
5
8
4
6
19
6
9
8
16
10
3
7
1
4
7
2