Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni

Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni
18.11.2004 12:31:43
Alexander
Hallo zusammen, ich hoffe es kann mir jemand helfen
Es soll in Abhängigkeit des Zellwertes von Zelle A1 jeweils
eine ander Schaltfläche ausgegeben werden.
(((Alternativ könnte es auch die gleiche Schaltfläche, jedoch mit einem Anderem Text und einer anderen Makrozuweisung, sein.)))
Problem:
Wenn "Tabelle1" A1=1 dann Schaltfläche 1 einblenden (zugeordnet Makro1)
Wenn "Tabelle1" A1=2 dann Schaltfläche 2 einblenden (zugeordnet Makro2)
Wenn "Tabelle1" A1=Text dann Schaltfläche 3 einblenden (zugeordnet Makro3)
sonst keine Schaltfläche einblenden
(((Es soll immer nur eine Schaltfläche eingeblendet werden und diese immer an der gleichen Stelle))))
Geht so was ?
Herzlichen Dank für die Hilfe
Gruß Alex

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni
Uduuh
Hallo,
etwa so: (in den Code der Tabelle)

Private Sub CommandButton1_Click()
Select Case Range("A1").Value
Case 1: Call Makro1
Case 2: Call Makro2
Case 3: Call Makro3
End Select
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case 1: CommandButton1.Caption = "Makro1"
Case 2: CommandButton1.Caption = "Makro2"
Case 3: CommandButton1.Caption = "Makro3"
End Select
End Sub

Gruß aus'm Pott
Udo

Anzeige
AW: Fehlermeldung - objekt erforderlich
18.11.2004 14:10:46
Alex
Erstmal Herzlichen Dank Udo;
Folgende Formel hab ich jetzt einbebaut (Im Code Tabellenblatt)

Private Sub CommandButton225_Click()
Select Case Range("K106").Value
Case 1: Call Test1
Case 2: Call Test2
Case 3: Call Test3
End Select
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$K$106" Then Exit Sub
Select Case Target.Value
Case 1: CommandButton225.Caption = "Test1"
Case 2: CommandButton225.Caption = "Test2"
Case 3: CommandButton225.Caption = "Test3"
End Select
End Sub

Sub Test1()
Range("AP106").Select
End Sub
Sub Test2()
Range("AP110").Select
End Sub
Sub Test3()
Range("AP113").Select
End Sub
Nun bekomme ich bei Eingabe von 2 (bei 1 und 3 entsprechend)
""Laufzeitfehler 424"" Objekt erforderlich
Debaggehler (ist Gelb markiert nach- Case 2: )
Case 2: CommandButton225.Caption = "Test2"
Wo liegt mein Fehler ?
Spreche ich die "Schaltfläche 225" mit Falschem Namen an ?,
oder was mache ich falsch ?
Lieben Gruß und Danke
Alex
Anzeige
AW: Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni
Ingolf
Hallo Alex,
folgende 2 Makros müssen im Makro-Editor in den Bereich "Tabelle1", wenn Tabelle1 das Arbeitsblatt ist, in dem die Schaltfläche auftauchen soll.

Private Sub CommandButton1_Click()
If ActiveSheet.CommandButton1.Caption = "Makro1" Then
Modul1.Makro1
ElseIf ActiveSheet.CommandButton1.Caption = "Makro2" Then
Modul1.Makro2
Else
Modul1.Makro3
End If
ActiveSheet.CommandButton1.Delete
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
wks = ActiveSheet
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=120, Top:=0.75, Width:=60, Height:=24.75).Select
wks.Activate
ActiveSheet.CommandButton1.TakeFocusOnClick = False
If Range("A1") = 1 Then
ActiveSheet.CommandButton1.Caption = "Makro1"
ElseIf Range("A1") = 2 Then
ActiveSheet.CommandButton1.Caption = "Makro2"
Else
ActiveSheet.CommandButton1.Caption = "Makro3"
End If
End Sub

Die drei Makros, die über die Schaltfläche gestartet werden, müssen sich dann natürlich in einem Benutzer-Modul mit Namen "Modul1" stehen. Hat das Modul einen anderen Namen, muss dieser in obigem Makro angepasst werden.
Gruß Ingolf
Anzeige
AW: Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni
18.11.2004 14:46:11
Alex
Hallo Ingolf
Herzlichen Dank für die formel doch es gibt eine Fehlermeldung
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festglegt
Dann (VBA)
((Gelb Markiert))
So steht die Formel bei mir:
folgende 2 Makros sind im Makro-Editor in den Bereich "Jornaleingabe", eingetragen.

Private Sub CommandButton225_Click()
If ActiveSheet.CommandButton225.Caption = "Test1" Then
Modul1.Test1
ElseIf ActiveSheet.CommandButton225.Caption = "Test2" Then
Modul1.Test2
Else
Modul1.Test3
End If
ActiveSheet.CommandButton225.Delete
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
wks = ActiveSheet
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.225", _
Left:=120, Top:=0.75, Width:=60, Height:=24.75).Select
wks.Activate
ActiveSheet.CommandButton225.TakeFocusOnClick = False
If Range("K106") = 1 Then
ActiveSheet.CommandButton225.Caption = "Test1"
ElseIf Range("K106") = 2 Then
ActiveSheet.CommandButton225.Caption = "Test2"
Else
ActiveSheet.CommandButton225.Caption = "Test3"
End If
End Sub

Die drei Makros, die über die Schaltfläche gestartet werden, sind in einem Benutzer-Modul mit Namen "Modul1" eingetragen.
Sub Test1()
Sheets("Jornaleingabe").Select
Range("AP106").Select
End Sub
Sub Test2()
Sheets("Jornaleingabe").Select
Range("AP110").Select
End Sub
Sub Test3()
Sheets("Jornaleingabe").Select
Range("AP113").Select
End Sub
Was mache ich falsch und wie kann ich die Fehlermeldung unterbinden
Herzlichen Dank und liebe Grüße
Alex
Anzeige
AW: Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni
18.11.2004 14:58:50
Alex
Hallo Ingolf
Herzlichen Dank für die formel doch es gibt eine Fehlermeldung
Bei Eingabe von 1 bis 3 in K106 (((((Tatsächlich wäre K106:L109))))
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festglegt
Dann (VBA Editor)
wks = ActiveSheet((Gelb Markiert))
So steht die Formel bei mir:
folgende 2 Makros sind im Makro-Editor in den Bereich "Jornaleingabe", eingetragen.

Private Sub CommandButton225_Click()
If ActiveSheet.CommandButton225.Caption = "Test1" Then
Modul1.Test1
ElseIf ActiveSheet.CommandButton225.Caption = "Test2" Then
Modul1.Test2
Else
Modul1.Test3
End If
ActiveSheet.CommandButton225.Delete
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
wks = ActiveSheet
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.225", _
Left:=120, Top:=0.75, Width:=60, Height:=24.75).Select
wks.Activate
ActiveSheet.CommandButton225.TakeFocusOnClick = False
If Range("K106") = 1 Then
ActiveSheet.CommandButton225.Caption = "Test1"
ElseIf Range("K106") = 2 Then
ActiveSheet.CommandButton225.Caption = "Test2"
Else
ActiveSheet.CommandButton225.Caption = "Test3"
End If
End Sub

Die drei Makros, die über die Schaltfläche gestartet werden, sind in einem Benutzer-Modul mit Namen "Modul1" eingetragen.
Sub Test1()
Sheets("Jornaleingabe").Select
Range("AP106").Select
End Sub
Sub Test2()
Sheets("Jornaleingabe").Select
Range("AP110").Select
End Sub
Sub Test3()
Sheets("Jornaleingabe").Select
Range("AP113").Select
End Sub
Was mache ich falsch und wie kann ich die Fehlermeldung unterbinden
Liegt der Fehler etwa in der Zellangabe K106 (((ist eigentlich K106:L109)))
In verzweiflung, mit Herzlichen Dank und lieben Grüßen
Alex
Anzeige
Fehler kann ich nicht lösen, bitte um Hilfe
18.11.2004 15:40:58
Alex
Hallo Zusammen
Folgendes Problem: Ich möchte gerne
>> die Schaltflächenmakrozuordnung in Abhängigkeit der Zelleingabe geändert werden Hier die umgearbeitete Formel von Ingolf, (Fehlermeldung am Ende beschrieben)
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
So steht die Formel bei mir:
folgende 2 Makros sind im Makro-Editor in den Bereich "Jornaleingabe", eingetragen.
---------------------------------------------------------------------------------

Private Sub CommandButton225_Click()
If ActiveSheet.CommandButton225.Caption = "Test1" Then
Modul1.Test1
ElseIf ActiveSheet.CommandButton225.Caption = "Test2" Then
Modul1.Test2
Else
Modul1.Test3
End If
ActiveSheet.CommandButton225.Delete
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
wks = ActiveSheet
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.225", _
Left:=120, Top:=0.75, Width:=60, Height:=24.75).Select
wks.Activate
ActiveSheet.CommandButton225.TakeFocusOnClick = False
If Range("K106") = 1 Then
ActiveSheet.CommandButton225.Caption = "Test1"
ElseIf Range("K106") = 2 Then
ActiveSheet.CommandButton225.Caption = "Test2"
Else
ActiveSheet.CommandButton225.Caption = "Test3"
End If
End Sub

-----------------------------------------------------------------------------------
Die drei (Test)Makros, die über die Schaltfläche gestartet werden sollen, sind in einem Benutzer-Modul mit Namen "Modul1" eingetragen und lauten wie folgt.
Sub Test1()
Sheets("Jornaleingabe").Select
Range("AP106").Select
End Sub
Sub Test2()
Sheets("Jornaleingabe").Select
Range("AP110").Select
End Sub
Sub Test3()
Sheets("Jornaleingabe").Select
Range("AP113").Select
End Sub
----------------------------------------------------------------------------------
Wenn ich nun in die Zelle K106 eine Eingabe mache, dann erscheint folgende Fehlertafel mit folgendem Makrofehler im Editor:
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festglegt
Dann (VBA Editor)
wks = ActiveSheet((Gelb Markiert))
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Was mache ich falsch und wie kann ich die Fehlermeldung unterbinden
Liegt der Fehler etwa in der Zellangabe K106 (((ist eigentlich K106:L109)))
Die Schaltfläche 225 wird beim Löschen mit dem Makrorekorder als "Button 225" bezeichnet und in Exelfenster als "Schaltfläche 225"! Hat der Fehler damit zu tun ?
Hab alles mögliche schon ausprobiert und komme nicht weiter.
In tiefer Ratlosigkeit und Dank für jede Hilfe
Alex
Anzeige
AW: Fehler kann ich nicht lösen, bitte um Hilfe
Ingolf
Hallo Alex,
da hab ich doch glatt eine entscheidende Kleinigkeit vergessen. Die beanstandete Programmzeile muß natürlich heissen:
Set wks = ActiveSheet
Gruß Ingolf
AW: Fehler bhoben, Danke
19.11.2004 21:14:55
Alex
Hallo Ingolf
Herzlichen Dank, die Formel klappt bestens.
liebe grüße und Dank für deine Mühen
Alex

325 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1