Button deaktivieren

Mike · 2013-10-15T20:37:38+00:00

Hallo an alle, habe eine kleine Exccelvorlage kreiert. Diese wird mit einem Makro unterstützt. Per Betätigen eines Buttons, wird eine Anfrage an eine DB gestellt. Dies ist etwas Zeitversetzt. Vorgeschichte: Daten werden aus einer DB per Script (PHP) gelesen und an EXCEL übergeben. Diese Daten bereite/ lege ich in ein Tabellenblatt. Funktioniert auch. Der Bereich ist definiert. Anfrage wird per Button angesetzt. WEnn aber der Benutzer zweimal auf den Button drückt, dann wird auch die Abfrage zweimal gestartet. Dabei verschieben sich Bezüge in den Zellen dauerhaft. Trotz das ich sie fix gesetzt habe. ($x$x) nun möchte ich einfach, dass nach einmaligem Druck auf den Button dieser grau oder inaktiv wird, bis die Abfrage generiert wurde. So schliesse ich ein verschieben meiner Bereich und Bezüge aus. FRage am Rande wäre trotzdem noch, warum sich fixe Bezüge verändern? Danke für Eure Bemühungen. Gruß Mike

Hallo,
im VBA Editor siehst du im Eigenschaftenfenster alles was den Button betrifft.
Public xyz As BOOLEAN : (klick im VBA Editor auf Boolean und dann auf F1)
Variablen vom Datentyp Boolean werden als 16-Bit-Zahlen (2 Bytes) gespeichert, die nur die Werte True oder False annehmen können. Variablen vom Datentyp Boolean werden als Wahr oder Falsch ausgegeben, wenn Print verwendet wird, bzw. als #TRUE# oder #FALSE#, wenn Write # verwendet wird. Mit den Schlüsselwörtern True und False weisen Sie einer Variablen vom Typ Boolean einen von zwei Zuständen zu.
Beim Umwandeln anderer numerischer Datentypen in Werte des Typs Boolean wird 0 zu False, und alle anderen Werte werden zu True. Beim Umwandeln von Werten des Datentyps Boolean in andere Datentypen wird False zu 0 und True zu -1.
Du kannst auch mit einem Wert aus einer Zelle die Überprüfung machen:

Private Sub CommandButton2_Click()
If ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1).Value = 0 Then '
Call Abfrage2
ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1).Value = 1 'irgendwas anderes wie 0
End If
End Sub

Änderst du nun die Zelle A1 wieder auf 0 so wird die Abfrage wieder gestartet.
Matze

Hallo Matze,
vielen Dank für Deine Geduld und Deine Mühe.^^
Aber bei mir stehen zu viele Bäume, so dass ich den Wald nicht sehen kann.
Die Schaltfläche, um welche es sich handelt ist die Schaltfläche 18. (lt. Excel) Diese müsste ich demnach im VBA mit CommandButton18_Click() ansprechen?
Habe mal das Ganze eingfügt, allerdings ohne dem Zusatz PRIVATE. (Bitte um Erläuterung.Danke.)


Sub CommandButton18_Click()
If ThisWorkbook.Worksheets("Start").Cells(2, 1).Value = 0 Then '
Call Daten_holen
ThisWorkbook.Worksheets("Start").Cells(2, 1).Value = 1 'irgendwas anderes wie 0
End If
End Sub
Sub Daten_holen()
Sheets("Ablage").Visible = xlSheetVisible
Sheets("Ablage").Select
Cells.Select
Selection.ClearContents
Range("B1").Select
Sheets("Config").Select
ActiveSheet.Unprotect Password:="123"
'link = Range("H30").Value
ActiveSheet.Protect Password:="123"
Sheets("Ablage").Select
Range("B31").Value = link
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & link, Destination:=Range("B" & 1 + i * 40))

Der Button bekam demnach von mir die neue Makrozuweisung CommanButton18_Click().
Der Durchlauf funktioniert m.M. nach. Habe aber keine Möglichkeit der DB-Anbindung, da ich hier am heimischen PC sitze und die DB-Anfrage auskommentiert habe. Kann also nicht sehen, ob in der Zeit der Anfrage der Button inaktiv bleibt.^^
Zweite Frage, wie setze ich am Ende der Routine die Anweisung, die Zelle wieder auf 0 zu setzen?
Und dritte Frage nochmal am Rande: Warum verschiebte sich der Bereich in meinen Formeln trotz der fixen Adressierung bei jeder erneuten Anfrage, ohne das die erte zum Ende kam? Müsste doch theoretisch die zweite auf die erste überlagert werden, oder?
Vielen Dank im Voraus.
Mike
VBA-Anfänger!

Forumthread: Button deaktivieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Button in Excel deaktivieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)