VBA - For Schleife :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

VBA - For Schleife

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Lolli
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 19
Wohnort: BW

Verfasst am: 18.09.2008, 13:51

Hallo

ich hab schon viele Schleifen programmiert und mir ist der Fehler vlt paar mal passiert, aber diesmal hab ich keine Ahnung warum er kommt.

Also Problem ist simpel jedoch so simpel, das man nicht versteht warum er kommt^^

Es lautet, "Next ohne For"

Jedoch bin ich schon 10x durchgegangen(Programm ist nicht wirklich groß) und habe Strichliste geführt(sogar bei meinen If's), wenn immer ich eins öffne/schließe.

Und die Strichliste geht auf, d.h 2 mal öffne ich eine Schleife und Schließe sich auch wieder(an der richtigen Stelle)

Das ist das ganze Blatt

Code:

Dim erstesDatum As Date
Dim aktuellesDatum As Date
Dim neuesDatum As Boolean
Dim durchlauf As Boolean
Dim feiertag As String

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile2 As Integer
Dim zeile As Integer
Dim zeilenzähler As Integer

zeile = 53
zeile2 = 4
zeilenzähler = 0
durchlauf = False
erstesDatum = "29.12.2008"

'hier wird überprüft, ob das Datum des ersten Tag geändert worden ist, sonst würde er bei jeden Termin, den man reinschreibt, das gesamte Programm durchlaufen
If neuesDatum = False Then

If Cells(10, 1) <> erstesDatum Then
aktuellesDatum = Cells(10, 1)
neuesDatum = True
durchlauf = True
ElseIf Cells(10, 1) = erstesDatum Then
durchlauf = True
End If

Else

If Cells(10, 1) <> aktuellesDatum And erstesDatum Then
aktuellesDatum = Cells(10, 1)
durchlauf = True
End If

End If

'Dieser Code wird nur ausgeführt, wenn sich ein Tag geändert wurde
If durchlauf = True Then

'Löscht Feiertage raus
Columns("B:I").Select
Selection.Interior.ColorIndex = xlNone

For i = 0 To 53 Step 1
Range("B" + zeile + ":I" + zeile + 8).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
zeile = zeile + 61

Next 'Hier kommt der Fehler(Codeunterbrechung ist mit Absicht)

Code:

zeile = 10
zeile2 = 4

For k = 0 To 380 Step 1

If Cells(zeile, 1) = "" Then
Exit For
End If

feiertag = Sheets("Feiertage").Cells(zeile2, 7)

'Markiert Feiergtage rot
If Cells(zeile, 1) = feiertag Then
Range("B" + zeile - 7 + ":I" + zeile + 2).Select
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
zeile2 = zeile2 + 1
End If

'Nach einer Woche muss er mehre Zeilen überspringen
zeilenzähler = zeilenzähler + 1
If zeilenzähler = 5 Then
zeile = zeile + 21
zeilenzähler = 0
Else
zeile = zeile + 10
End If

Next

End If

End Sub

_________________
Wenn eine Taube durch den Rauch fliegt,
behindert der Rauch die Taube oder verletzt die Taube den Rauch?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 18.09.2008, 13:56

Hallo!

Vor dem "Next" fehlt ein "End With".

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Lolli
Newbie
Newbie

Anmeldedatum: 28.07.2008
Beiträge: 19
Wohnort: BW

Verfasst am: 18.09.2008, 14:12

ach, vielen Dank, und ich such und such und such... -.-

_________________
Wenn eine Taube durch den Rauch fliegt,
behindert der Rauch die Taube oder verletzt die Taube den Rauch?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Schleife inExcel einbinden	jeho	Microsoft Excel Hilfe	13	15.05.2007, 09:22
	Schleife über Spalten	BoroOfGondor	Microsoft Excel Hilfe	0	27.03.2006, 11:49

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de