Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox

ComboBox
23.09.2004 16:32:40
Sebastian
Hi zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox
25.09.2004 13:07:06
Hans
Hallo Sebastian,
Selectieren und Aktivieren ist in VBA Teufelszeugs.
Gib den folgenden Code in das Klassenmodul der UserForm ein (da in Deinem Code das Private fehlt, vermute ich mal, dass Du den Code in einem Klassenmodul hast):

Sub ComboBox1_Change()
With Sheets("ITS Total")
Select Case ComboBox1.Value
Case "January NEW"
.Range("B580:HQ610").Copy .Range("B100:HQ100")
.Range("B100:HQ130").Copy .Range("B20:HQ20") '
Case "January SAVE"
.Range("B20:HQ50").Copy .Range("B1060:HQ1060")
End Select
End With
End Sub

Gruss hans
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige