16.12.2020, 15:16
Hallöchen,
könnte mir vorstellen, dass das nicht ausreicht wenn Du eine Menge fällige Fahrzeuge hast. Der Text einer Msgbox ist nicht unendlich ...
Du hast aber schon Schleifen in Deinem Projekt. Baue eine weitere Schleife um die Aktionen, im Prinzip so:
Blaetter wäre dann das jeweilige Blatt, wo Du die Daten her holst und Übersicht eben die Tabelle, wo alles rein kommt.
Du musst dann allerdings in der Schleife
For x = 4 To lzeileB
statt der starren 4 die jeweils erste freie Zeile nehmen. Dazu könntest Du selbige vor der vorgeschlagenen Schleife (For Each Blaetter in Sheets()) feststellen und nach Durchlauf der inneren Schleife auf den x-Wet hochsetzen, im Prinzip
rStart = ...
For Each Blaetter in Sheets()
...
For x = rStart To lzeileB
...
Next
rStart = x
Next
Zitat:Ja das würde mir vollkommen reichen
könnte mir vorstellen, dass das nicht ausreicht wenn Du eine Menge fällige Fahrzeuge hast. Der Text einer Msgbox ist nicht unendlich ...
Du hast aber schon Schleifen in Deinem Projekt. Baue eine weitere Schleife um die Aktionen, im Prinzip so:
Code:
For Each Blaetter in Sheets()
If Blaetter.Name <> "Uebersicht" Then
'... hier die Aktionen
End If
Next
Blaetter wäre dann das jeweilige Blatt, wo Du die Daten her holst und Übersicht eben die Tabelle, wo alles rein kommt.
Du musst dann allerdings in der Schleife
For x = 4 To lzeileB
statt der starren 4 die jeweils erste freie Zeile nehmen. Dazu könntest Du selbige vor der vorgeschlagenen Schleife (For Each Blaetter in Sheets()) feststellen und nach Durchlauf der inneren Schleife auf den x-Wet hochsetzen, im Prinzip
rStart = ...
For Each Blaetter in Sheets()
...
For x = rStart To lzeileB
...
Next
rStart = x
Next
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)