Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
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
Schaltbutton in Abhängigkeit von Ergebnis
Ergebnis
Hallo liebe Excelprofis,
habe ein kleines Problem,
habe hier einen Code der so weit gut funktioniert. Allerdings habe ich jetzt einen dritten Button dazu gesetzt und da kommt bei Butten3 die Fehlermeldung Variabele nicht definiert und der Debugger geht auf. Ich finde den Fehler nicht . Könnt ihr mir bitte einen Tip geben. Danke René
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Butten1 As Object
Dim Butten2 As Object
Dim Button3 As Object
If Sheets("Rechnen").Range("C46") Is Nothing Then Exit Sub
Set Butten1 = CommandButton1
Set Butten2 = CommandButton2
Set Button3 = CommandButton3
If Sheets("Rechnen").Range("C46") = "1" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0FF
Butten2.Visible = True
Butten2.BackColor = &HFFC0C0
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
ElseIf Sheets("Rechnen").Range("C46") = "2" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0C0
Butten2.Visible = True
Butten2.BackColor = &HFFC0FF
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
ElseIf Sheets("Rechnen").Range("C46") = "2" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0C0
Butten2.Visible = True
Butten2.BackColor = &HFFC0C0
Butten3.Visible = True
Butten3.BackColor = &HFFC0FF
ElseIf Sheets("Rechnen").Range("C46") = "" Then
Butten1.Visible = False
Butten2.Visible = False
Button3.Visible = False
End If
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Option Explicit
25.12.2010 16:57:54
ransi
Hallo
Schreib mal als erste Zeile in das Modul:
Option Explicit
Dann wirds ganzschnell klar.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Butten1 As Object
Dim Butten2 As Object
.
.
.

ransi
Anzeige
AW: Schaltbutton in Abhängigkeit von Ergebnis
25.12.2010 17:57:21
Ergebnis
Hallo René,
und den Code ein wenig aufgeräumt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Butten1 As Object
Dim Butten2 As Object
Dim Butten3 As Object
Set Butten1 = CommandButton1
Set Butten2 = CommandButton2
Set Butten3 = CommandButton3
Select Case Sheets("Rechnen").Range("C46")
Case 1
Butten1.Visible = True
Butten1.BackColor = &HFFC0FF
Butten2.Visible = True
Butten2.BackColor = &HFFC0C0
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
Case 2
Butten1.Visible = True
Butten1.BackColor = &HFFC0C0
Butten2.Visible = True
Butten2.BackColor = &HFFC0FF
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
Case ""
Butten1.Visible = False
Butten2.Visible = False
Butten3.Visible = False
End Select
Set Butten1 = Nothing
Set Butten2 = Nothing
Set Butten3 = Nothing
End Sub


Anzeige
AW: Schaltbutton in Abhängigkeit von Ergebnis
25.12.2010 18:17:19
Ergebnis
Hallo René,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Sheets("Rechnen").Range("C46")
Case 1
CommandButton1.BackColor = &HFFC0FF
CommandButton2.BackColor = &HFFC0C0
CommandButton3.BackColor = &HFFC0C0
Case 2
CommandButton1.BackColor = &HFFC0C0
CommandButton2.BackColor = &HFFC0FF
CommandButton3.BackColor = &HFFC0C0
End Select
CommandButton1.Visible = Not Sheets("Rechnen").Range("C46") = ""
CommandButton2.Visible = Not Sheets("Rechnen").Range("C46") = ""
CommandButton3.Visible = Not Sheets("Rechnen").Range("C46") = ""
End Sub
Allerdings, nimm vielleicht doch den Code von Hajo und bau Case Else ein...

Gruß
Reinhard
Anzeige
AW: Schaltbutton in Abhängigkeit von Ergebnis
25.12.2010 18:24:24
Ergebnis
Hallo Reinhard,
ich habe es schon öffters im Internet gelesen. Das VBA Projekte angezeigt werden obwoh die Datei geschlossen ist. Was da helfen soll, alle Variablen die mit Set gesetzt wurden am Ende auf Nothing setzen.
Gruß Hajo
Danke dir für die Info, o.w.T.
27.12.2010 11:48:29
Reinhard


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige