Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Knopf

Forumthread: Knopf

Knopf
31.07.2006 12:07:13
Julia
Hallo Ihr Lieben,
wie kann ich den bzw. was muss ich für Zeilen schreiben, wenn ich einen Knopf haben will, der beim drücken ein "x" in die makierte Zelle schreibt, bzw. wenn schon ein "x" drin ist die Zelle leert.
wäre um jede Hilfe dankbar.
LG
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Knopf
31.07.2006 12:12:32
Kersten
Hallo,
Einen Knopf kannst du einfach wie bei den Userformen auch malen.
"Ansicht" "Symbolleiste" "Visual Basix"
Da müsste eine Box erscheinen wo du "Command Button" auswählen kannst und somit den Knopf zeichnen kannst.
AW: Knopf
31.07.2006 12:14:55
Julia
Hallo Kersten,
der Knopf ist schon gemalt. das war auch nicht das Problem, sonder die Programmierung :-(
Anzeige
AW: Knopf
31.07.2006 12:14:25
Andreas
Hi Julia,

Private Sub CommandButton1_Click()
If ActiveCell.Value = "" Then ActiveCell.Value = "x": Exit Sub
If ActiveCell.Value = "x" Then ActiveCell.Value = ""
End Sub

Gruß,
Andreas
AW: Knopf
31.07.2006 12:18:56
Julia
Danke Andreas,
das funktioniert. Noch eine kleine Frage, gibt es die Möglichkeit das ganze nur für den Bereich B7:R27 zu erlauben? Wenn ja wie geht sowas?
Tausend dank.
LG
Anzeige
AW: Knopf
31.07.2006 12:19:22
Kersten
oder so:

Sub zahl_pruefen()
zeile = Selection.Row
spalte = Selection.Column
If Cells(zeile, spalte) = "X" Then _
Cells(zeile, spalte) = "": Exit Sub
If Cells(zeile, spalte) = "" Then _
Cells(zeile, spalte) = "X"
End Sub

Gruß
Kersten
AW: Knopf
31.07.2006 13:20:49
Julia
Hallo,
kann mir keiner helfen und sagen, wie ich einen Bereich einschränken kann, in dem der code geht? (B7:R27)?
LG
Anzeige
AW: Knopf
31.07.2006 13:28:48
Mag
Hi,
so z.B.:

Private Sub CommandButton1_Click()
If Not Intersect(Range(ActiveCell.Address), Range("B7:R27")) Is Nothing Then
If ActiveCell.Value = "" Then ActiveCell.Value = "x": Exit Sub
If ActiveCell.Value = "x" Then ActiveCell.Value = ""
End If
End Sub

Gruss
Anzeige
AW: Knopf
31.07.2006 13:59:52
Julia
Tausend dank.
LG
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige