if in if funktion
25.11.2014 19:45:53
Les
ich krieg diese Konstellation nicht im laufen.
Ich bekomme die Meldung: Fehler beim Kompilieren: Else ohne If
und die "Else" ganz unten wird mit Gelb gekennzeichnet!
Bin neu bei vba Programierung und bedanke mich für jede Hilfe :)
Private Sub Workbook_Open()
Dim dil As String
Dim go As String
go = ThisWorkbook.Sheets("Tabele1").Range("B23").Value
dil = ThisWorkbook.Sheets("Tabele1").Range("U6").Value
If go "10" Then
ThisWorkbook.Sheets("Tabele1").Range("M30:P30").MergeCells = False
ThisWorkbook.Sheets("Tabele1").Range("J28:Q68").Interior.ThemeColor = xlThemeColorDark1
If dil = "rot" Then ThisWorkbook.Sheets("Tabele1").Range("O29").FormulaLocal = "=D37="" _
test""
Else
ThisWorkbook.Sheets("Tabele1").Range("O29").FormulaLocal = "=D37=""ok""
End If
ThisWorkbook.Sheets("Tabele1").Range("O53").FormulaLocal = "=O29"
Else
ThisWorkbook.Sheets("Tabele1").Range("O30:Q32").MergeCells = False
End If
End Sub