Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hier nochmal ein Versuch:

Hallo, ich hab vor kurzem erst angefangen mich mit VBAs und Makros zu beschäftigen und irgendwie funktioniert nichts, was ich ausprobiere.

Zum ersten Problem: Ich versuche mit if then abhängig von der Auswahl bei einer ComboBox den Text in ein paar Zellen zu verändern bzw. zu i.

Mein erster Versuch sah so aus:

Sub Text_1() Dim c1 As ComboBox c1 = Combox1.Text If c1 = "text" Then Range ("A1").Formula = "a" Range("A1").HorizontalAligment = xlRight End If End Sub

Da passiert leider gar nix.

Zweites Problem: Ich möchte abhängig davon, ob Optionbutton 1 oder 2 angeklickt ist Bild 1 sichtbar und Bild 2 unsichtbar oder eben andersrum bei Optionbutton2. Ich hab es zuerst mit if then versucht, das funktionierte beim ersten Click auch, aber wenn ich zwischen 1 und zwei hin und her wechsle, bekomme ich einen Laufzeitfehler. Dann habe ich es mit Select Case probiert, aber da bekam ich entweder den selben Fehler oder, nachdem ich versucht habe das ganze erst mal zu reduzieren und dann mit Variablen zu arbeiten einen anderen Fehler und nun funktioniert gar nichts mehr.

o, ich hab vor kurzem erst Hallo, ich hab vor kurzem erst angefangen mich mit VBAs und Makros angefangen mich mit VBAs und Makros zu beschäftigen und irgendwie zu beschäftigen und irgendwie funktioniert nichts, was ich ausprobiere. funktioniert nichts, was ich ausprobiere.

Ich habe übrigens Office 2016, aber das Ich habe übrigens Office 2016, aber das war noch nicht auswählbar. war noch nicht auswählbar.

Zum ersten Problem: Zum ersten Problem: Ich versuche mit if then abhängig von der Ich versuche mit if then abhängig von der Auswahl bei einer ComboBox den Text in Auswahl bei einer ComboBox den Text in ein paar Zellen zu verändern bzw. zu ein paar Zellen zu verändern bzw. zu erstellen. erstellen.

Mein erster Versuch sah so aus: Mein erster Versuch sah so aus:

Sub Text_1() Sub Text_1() Dim c1 As ComboBox Dim c1 As ComboBox c1 = Combox1.Text c1 = Combox1.Text If c1 = "text" Then If c1 = "text" Then Range ("A1").Formula = "a" Range ("A1").Formula = "a" Range("A1").HorizontalAligment = xlRight Range("A1").HorizontalAligment = xlRight End If End If End Sub End Sub

Da passiert leider gar nix. Da passiert leider gar nix.

Zweites Problem: Zweites Problem: Ich möchte abhängig davon, ob Ich möchte abhängig davon, ob Optionbutton Optionbutton 1 oder 2 angeklickt ist Bild 1 sichtbar und 1 oder 2 angeklickt ist Bild 1 sichtbar und Bild 2 unsichtbar oder eben andersrum Bild 2 unsichtbar oder eben andersrum bei Optionbutton2. bei Optionbutton2. Ich hab es zuerst mit if then versucht, das Ich hab es zuerst mit if then versucht, das funktionierte beim ersten Click auch, aber funktionierte beim ersten Click auch, aber wenn ich zwischen 1 und zwei hin und wenn ich zwischen 1 und zwei hin und her wechsle, bekomme ich einen her wechsle, bekomme ich einen Laufzeitfehler. Laufzeitfehler. Dann habe ich es mit Select Case Dann habe ich es mit Select Case probiert, aber da bekam ich entweder den probiert, aber da bekam ich entweder den selben Fehler oder, nachdem ich versucht selben Fehler oder, nachdem ich versucht habe das ganze erst mal zu reduzieren habe das ganze erst mal zu reduzieren und dann mit Variablen zu arbeiten einen und dann mit Variablen zu arbeiten einen anderen Fehler und nun funktioniert gar anderen Fehler und nun funktioniert gar nichts mehr.