möchte gern ein Bereich einfärben, habe hierfür was im Forum gefunden,
Private Sub ComboBox1_Change()
If Cells(1, 1).Value = "P" Then
Range("A2:Z22").Select
With Selection.Interior
.ColorIndex = 37
End With
ElseIf Cells(1, 1).Value = "A" Then
Range("A2:Z22").Select
With Selection.Interior
.ColorIndex = 36
End With
End If
Range("r1").Select
End Sub
Desweitern ist noch der Befehl drin.
Private Sub Worksheet_Activate()
Sortieren
End Sub
Wenn nun das Tab aufgerufen wird, wird ja unter
Private Sub Worksheet_Activate() mit Sortieren eines anderen Tab aufgerufen, diese Tab wird _
auch sortiert, aber das Makro läuft nicht bis zum Ende, sondern springt zwischendurch in die ComboBox1 und gibt logischerweise eine Fehlermeldung aus.
Es gibt in dem Makro kein Befehl in die ComboBox zu springen.
Anbei das Makro SORTIEREN
Sortieren()
Application.ScreenUpdating = False
With Worksheets("SCHÜLERDATEN")
.Unprotect Password:="test"
.Range("Datenbank").Sort Key1:=Range("Name"), Order1:= _
xlAscending, Key2:=Range("Name1"), Order2:= _
xlAscending, Key3:=Range("Name2"), Order3:= _
xlAscending, Header:=xlGuess, OrderCustom:=1 _
, MatchCase:=False, Orientation:=xlTopToBottom
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="test"
End With
Application.ScreenUpdating = True
End Sub
Wer hat einen Rat für mich ?
Denke es müßte was an der ComBoBox geändert werden.
Ich kann auch andere Makros mit der Hand ausführen, und jedesmal geht er in die KomboBox und gibt ein Fehler aus.
Gruß Angela