Re: If-clause problem
17.01.2003 12:48:49
Sebastian
Hallo Hajo/Georg (warum eigentlich doppelt),das geht schon, war ein fehler in der msgbox-syntax. Nun sieht es so aus:
Sub Projektsheets_aktual()
Application.ScreenUpdating = False
If Range("A43:L43").Value = "" Then MsgBox "Sie haben wohl keine Erfassungen getätigt!", vbOKOnly, "Fehler"
Exit Sub
Else
Blattschutz_raus
Tabellenblätter_löschen
Sheets("Monatsübersicht").Select
Call Sortieren_Monatsübersicht
rowcount = pub_count
'hier werden die Zeilen ab 43 in die einzelnen Teilprojektblätter verteilt
For j = 43 To rowcount
Sheets("Monatsübersicht").Select
Rows("" & j & ":" & j & "").Copy
sheetname = Sheetnamen_generieren(Range("H" & j & "").Value, Range("G" & j & "").Value)
Sheets(sheetname).Select
Ende_finden (11)
ActiveSheet.Paste
If sheetname Like "*_F" Then
Sheets(Cells(2, 1).Value + "_N").Select
Ende_finden (11)
ActiveSheet.Paste
End If
Next j
'hier werden die Zellen der Tätigkeitsberichte geschützt
For Each ws In Worksheets
With ws
s = .Name
If s Like "*_F" Or s Like "*_R" Or s Like "*_U" Or s Like "*_N" Then
.Range("A1:IV65536").Locked = True
Else
Select Case s
Case "KM-Geld"
.Range("A1:IV65536").Locked = True
Case "Verauslagte Kosten"
.Range("A1:IV65536").Locked = True
End Select
End If
End With
Next ws
Blattschutz_rein
Sheets("Monatsübersicht").Select
Range("A1").Select
Application.ScreenUpdating = False
End If
End Sub
Nun meckert Excel else ohne if...?! Ich möchte einfach wenn in a-l nichts steht abbrechen mit der msgbox, sonst soll der Rest des Codes ausgeführt werden. Vielleicht das end if falscg positioniert?
Grüße,Sebastian