sitze schon den ganzen Tag vor dem Rechner und bin kurz vor dem Verzweifeln.Ich habe folgendes Problem. Ich will mit einer ComboBox eine Auswahl treffen und dann je nach auswahl verschiedene Makroe laufen lassen.
Hab bis jetzt folgendes zusammengebastelt. Vielleicht kann mir jemand auf die Sprünge helfen. Danke. Grüße Sebastian
Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0: MsgBox "January"
End Select
Application.ScreenUpdating = False
If ComboBox1 = "January NEW" Then
Sheets("ITS Total").Select
ActiveWindow.Activate
Range("B580:HQ610").Select
Application.CutCopyMode = False
Selection.Copy
Range("B100:HQ100").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("ITS Total").Select
ActiveWindow.Activate
Range("B100:HQ130").Select
Selection.Copy
Range("B20:HQ20").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
If ComboBox = "January SAVE" Then
Run Sheets("ITS Total").Select
ActiveWindow.Activate
Range("B20:HQ50").Select
Application.CutCopyMode = False
Selection.Copy
Range("B1060:HQ1060").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub