Hallo!
Habe ein Makro in einer Tabelle (Tab1)w elches eine andere Excel Datei öffnet und den Wert aus ein paar Feldern ausliest und in der Tab1 ablegt.
C6 = Range(„C6“).Value
G42 = Range(„G42“).Value
E1 = Range(„E1“).Value
Nun möchte ich zusätzlich eine checkbox („Kontrollkästchen 52“) auslesen (Wert 1 oder 0). Wie gehe ich damit um?
Gruß,
FB
Hallo Faisal.
Ich möchte Dir zuerst die Empfehlung geben, das Kontrollkästchen aus der Symbolleiste ‚Formular‘ nicht zu verwenden, sondern stattdessen die Kontrollkästchen (CheckBox) aus der Symbolleiste ‚Steuerelement-Toolbox‘. (NUR EINE EMPFEHLUNG!)
Ansonsten ist die Programmierung bei beiden sehr ähnlich, sofern Du tatsächlich die Werte 0 und 1 zurückgegeben haben möchtest:
Kontrollkästchen aus der Symbolleiste ‚Formular‘:
-Gehe in den VisualBasic-Editor
-Füge ein Modul hinzu, sofern noch kein Modul vorhanden ist
-Kopiere den folgenden Code in das Modul:
Sub Makro1()
ActiveSheet.Cells(1, 1).Value = ActiveSheet.Cells(1, 1).Value \* -1 + 1
End Sub
-Gehe nun bitte zurück zur Tabelle mit dem Kontrollkästchen
-Klicke das Kontrollkästchen mit der rechten Maustaste an
-Wähle in dem Menü den Eintrag „Makro zuweisen…“
-Wähle aus der Liste der verfügbaren Makros den Eintrag „Makro1“
-Bei dieser Variante mußt Du darauf achten, daß die Anfangswerte bei Kontrollkästchen und Zelle gleich sind.
Wenn Du nun das Kontrollkästchen anklickst, sollte in Zelle A1 immer 0 bzw. 1 drinstehen.
CheckBox aus der Symbolleiste „Steuerelement-Toolbox“:
-Platziere eine CheckBox auf dem Tabellenblatt
-Doppelklicke auf die Checkbox, woraufhin Du im VisualBasic-Editor landest.
-Dort sollte ein Prozedur-Rumpf stehen mit folgendem Text:
Private Sub CheckBox1\_Click()
End Sub
-Füge in diesen Prozedur-Rumpf folgenden Code ein:
ActiveSheet.Cells(1, 1).Value = CInt(CheckBox1.Value)\* -1
-Gehe nun zurück zum Tabellenblatt
-Klicke in der Symbolleiste „Steuerelement-Toolbox“ auf die Schaltfläche „Entwurfsmodus beenden“
-Wenn Du nun die Checkbox anklickst, sollte auch wieder in Zelle A1 immer 0 bzw. 1 drinstehen.
-Bei dieser Variante sind müssen die Anfangswerte nicht übereinstimmen.
Viele Grüße
Carsten
Hallo Faisal.
Ansonsten ist die Programmierung bei beiden sehr ähnlich,
sofern Du tatsächlich die Werte 0 und 1 zurückgegeben haben
möchtest:Kontrollkästchen aus der Symbolleiste ‚Formular‘:
-Gehe in den VisualBasic-Editor
-Füge ein Modul hinzu, sofern noch kein Modul vorhanden ist
-Kopiere den folgenden Code in das Modul:Sub Makro1()
ActiveSheet.Cells(1, 1).Value = ActiveSheet.Cells(1,
1).Value * -1 + 1
End Sub-Gehe nun bitte zurück zur Tabelle mit dem
Kontrollkästchen
-Klicke das Kontrollkästchen mit der rechten Maustaste an
-Wähle in dem Menü den Eintrag „Makro zuweisen…“
-Wähle aus der Liste der verfügbaren Makros den Eintrag
„Makro1“
-Bei dieser Variante mußt Du darauf achten, daß die
Anfangswerte bei Kontrollkästchen und Zelle gleich sind.Wenn Du nun das Kontrollkästchen anklickst, sollte in Zelle A1
immer 0 bzw. 1 drinstehen.Viele Grüße
Carsten
Hallo Carsten!
Vielen Dank für die rasche Antwort!
Deine Empfehlung ist richtig. Nur leider habe ich ungefähr 700 Excel Tabellen die ich auswerten muss. Von daher ist es mir nicht möglich in alle Tabellen zu gehen und den Kontrolkästchen ein Makro zuzuweisen. Ich hab in einer Master-Tabelle ein Skript, welches alle subdir’s öffnet, nacheinander die einzelnen Tabellen öffnet und die Werte aus drei Zellen ausliest und in die ursprungstabelle einträgt:
Do While szFile ""
Application.Workbooks.Open (szPathname(i) + "\" + szFile)
C6 = Range("C6").Value
G42 = Range("G42").Value
E1 = Range("E1").Value
ActiveWorkbook.Close
ActiveCell.Offset(0, 1).Value = C6
ActiveCell.Offset(0, 2).Value = G42
ActiveCell.Offset(0, 3).Value = E1
ActiveCell.Offset(1, 0).Select
szFile = Dir 'nächstes Eintrag
Nun sollen wie gesagt diese Kontrollkästchen aus der Formular-Symbolleiste auch noch in Betracht gezogen werden. Wie lese ich den Wert (Egal ob 0 oder 1, Wahr oder Falsch etc.) aus dem Kontrollkästchen?
Gruß,
Faisal
Dieses Crossposting 
, ist gelöst.
Nun möchte ich zusätzlich eine checkbox („Kontrollkästchen
52“) auslesen (Wert 1 oder 0). Wie gehe ich damit um?
Hallo,
siehe: http://groups.google.de/group/microsoft.public.de.ex…
Gruß
Reinhard