Makrofehler
29.05.2004 17:34:28
thomas
das folgende Makro funktioniert nicht, es kommt immer die Meldung:
Fehler beim komp.: Else ohne If. Sieht jemand den Fehler?
vielen Dank für Hilfe!
thomas
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Sheets("Start").ComboBox1.ListIndex = 3 'damit, egal was User wählt, für Bsp 4 Szen und 3 Prod. gewählt werden
Sheets("Start").ComboBox2.ListIndex = 1
Dim ws As Worksheet
If Sheets("Start").OptionButton4 = True And Sheets("Start").OptionButton6 = True Then
Set ws = Sheets("Beispieldaten")
With Sheets("Erfolgssens.-Analyse BM")
'Für BM-Blatt
ws.Range("a13:a19").Copy
.Range("c60:c66").PasteSpecial Paste:=xlPasteValues
.Range("c93:c99").PasteSpecial Paste:=xlPasteValues
.Range("c126:c132").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
If Sheets("Start").OptionButton4 = True And Sheets("Start").OptionButton7 = True Then
Set ws = Sheets("Beispieldaten")
With Sheets("Erfolgssens.-Analyse BW")
'Für BM-Blatt
ws.Range("a38:a44").Copy
.Range("d55:d61").PasteSpecial Paste:=xlPasteValues
.Range("d83:d89").PasteSpecial Paste:=xlPasteValues
.Range("d111:d117").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
If Sheets("Start").OptionButton5 = True And Sheets("Start").OptionButton6 = True Then
Set ws = Sheets("Beispieldaten")
With Sheets("Erfolgssens.-Analyse BSM")
'Für BM-Blatt
ws.Range("p68:t69").Copy
.Range("cl52:cp53").PasteSpecial Paste:=xlPasteValues
.Range("cl105:cp106").PasteSpecial Paste:=xlPasteValues
.Range("cl158:cp159").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
If Sheets("Start").OptionButton5 = True And Sheets("Start").OptionButton7 = True Then
Set ws = Sheets("Beispieldaten")
With Sheets("Erfolgssens.-Analyse BSW")
'Für BM-Blatt
ws.Range("p102:t102").Copy
.Range("cl50:cp50").PasteSpecial Paste:=xlPasteValues
.Range("cl87:cp87").PasteSpecial Paste:=xlPasteValues
.Range("cl124:cp124").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End If
Else
Dim ws As Worksheet
If Sheets("Start").OptionButton4 = True And Sheets("Start").OptionButton6 = True Then
With Sheets("Erfolgssens.-Analyse BM")
'Für BM-Blatt
.Range("c60:c66").ClearContents
.Range("c93:c99").ClearContents
.Range("c126:c132").ClearContents
End With
End If
If Sheets("Start").OptionButton4 = True And Sheets("Start").OptionButton7 = True Then
With Sheets("Erfolgssens.-Analyse BW")
'Für BM-Blatt
.Range("d55:d61").ClearContents
.Range("d83:d89").ClearContents
.Range("d111:d117").ClearContents
End With
End If
If Sheets("Start").OptionButton5 = True And Sheets("Start").OptionButton6 = True Then
With Sheets("Erfolgssens.-Analyse BSM")
'Für BM-Blatt
.Range("aa78").ClearContents
.Range("aa131").ClearContents
.Range("aa184").ClearContents
End With
End If
If Sheets("Start").OptionButton5 = True And Sheets("Start").OptionButton7 = True Then
With Sheets("Erfolgssens.-Analyse BSW")
'Für BM-Blatt
.Range("cl50:cp50").ClearContents
.Range("cl87:cp87").ClearContents
.Range("cl124:cp124").ClearContents
End With
End If
End If
End If
End Sub