Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bei Klick auf bestimmte Spalte Formular öffnen

Forumthread: Bei Klick auf bestimmte Spalte Formular öffnen

Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 19:33:01
BLangmantl
Hallo,
ich habe eine Tabelle, dort steht in Spalte soll bei Klick auf eine Zelle beginnend ab A2 und jeweils bei jeder befüllten Zelle in Spalte A ein Folmular öffnen. Es muss also abgeprüft werden ob in der Spalte A2 zum Beispiel ein Eintrag ist, ist dort ein Eintrag, dann soll er das Formular öffnen sonst nichts machen, und dies für alle Zellen in Spalte a, wo etwas drinsteht. Wie geht das?
Danke schon mal und Gruß aus Berlin
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 19:34:52
cysu11
Hi,
bitte lade deine Beispieldatei hoch und was für Formulare sollen geöffnet werden?!
LG
Alexandra
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 19:36:49
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target = "" Then
Userform1.Show
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 19:48:53
BLangmantl
Hallo Hallo Hajo, danke für deinen Lösungsansatz. Ich musste es etwas verändern, weil dein Code öffnet die SF wenn die Zelle leer ist, ich will aber die Öffnung bei befüllter Tabelle. Ich habe es so verändert:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target  "" Then
frmMitgliedsStatus.Show
End If
End Sub
Jedoch kann ich die erste Zelle, da es die Überschriftsspalte ist, ausklammern? da steht ja immer etwas drin, im Grunde genommen soll er dann ab der Zelle A2 nach unten, wenn in der Zelle etwas steht ein Formular öffnen?
Wie müsste man das abändern?
Gruß aus Berlin
Anzeige
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 19:53:55
Hajo_Zi

If Target.Column = 1 And Target = "" And Target.Row > 1 Then

Gruß Hajo
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 20:24:43
BLangmantl
Danke Hajo funktioniert super
AW: Bei Klick auf bestimmte Spalte Formular öffnen
22.03.2019 20:29:14
BLangmantl
Hallo Hajo,
könnte man das jetzt auch noch so umsetzen, dass es anstat Click bei Doppelklick funktioniert?
Anzeige
DoppelKlick in bestimmter Spalte Formular öffnen
22.03.2019 20:47:24
EtoPHG
Hallo,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target  "" And Target.Row > 1 Then
Cancel = True
Userform1.Show
End If
End Sub
Gruess Hansueli
AW: DoppelKlick in bestimmter Spalte Formular öffnen
22.03.2019 20:52:03
BLangmantl
Danke an alle Helfer
AW: DoppelKlick in bestimmter Spalte Formular öffnen
23.03.2019 09:22:08
BLangmantl
hallo, Danke es hat geklappt, danke an alle Helfer
Anzeige
Wie bekomme ich diesen Threat geschlossen
23.03.2019 09:22:58
BLangmantl
Hallo, das Problem ist gelöst, wie bekomme ich den Threat hier geschlossen?
AW: Ist automatisch beendet, wenn du ...
23.03.2019 09:51:15
Dieter(Drummer)
... nicht das Kästchen unter "Aktiviere das Kontrollkästchen ..." (oben rechts, neben "Passwort", aktivierst.
Gruß, Dieter(Drummer)
Anzeige
Anzeige

Infobox / Tutorial

Formular bei Klick auf bestimmte Spalte in Excel öffnen


Schritt-für-Schritt-Anleitung

Um ein Excel VBA Formular bei einem Klick auf eine bestimmte Spalte zu öffnen, folge diesen Schritten:

  1. Öffne deine Excel-Datei und drücke Alt + F11, um den VBA-Editor zu starten.

  2. Im VBA-Editor siehst du eine Projektübersicht. Doppelklicke auf die Tabelle, in der du das Formular öffnen möchtest.

  3. Füge den folgenden Code in das rechte Fenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target.Column = 1 And Target <> "" And Target.Row > 1 Then
           frmMitgliedsStatus.Show
       End If
    End Sub
  4. Schließe den VBA-Editor.

  5. Teste das Makro, indem du auf eine Zelle in der ersten Spalte klickst, die befüllt ist.

Wenn du die Funktion bei einem Doppelklick umsetzen möchtest, kannst du den folgenden Code verwenden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target <> "" And Target.Row > 1 Then
        Cancel = True
        Userform1.Show
    End If
End Sub

Häufige Fehler und Lösungen

  • Fehler: Das Formular öffnet sich nicht.

    • Lösung: Überprüfe, ob der Code korrekt in der richtigen Tabelle eingefügt wurde und dass die Zelle in Spalte A tatsächlich einen Eintrag hat.
  • Fehler: Das Formular öffnet sich bei leeren Zellen.

    • Lösung: Stelle sicher, dass der Code die Bedingung Target <> "" korrekt prüft.

Alternative Methoden

Eine alternative Möglichkeit, ein VBA Formular zu öffnen, ist die Verwendung von Schaltflächen:

  1. Gehe zu Entwicklertools > Einfügen und wähle eine Schaltfläche aus.
  2. Ziehe die Schaltfläche auf das Arbeitsblatt und weise ihr ein Makro zu, das dein Formular öffnet.
  3. Der Code könnte so aussehen:

    Sub OpenForm()
       frmMitgliedsStatus.Show
    End Sub

Praktische Beispiele

  • Beispiel 1: Öffne ein Formular, wenn in A2 ein Eintrag vorhanden ist.

  • Beispiel 2: Verwende eine Schaltfläche, um verschiedene Formulare basierend auf der Auswahl in einer Zelle zu öffnen.

Sub OpenDifferentForms()
    If Range("A2").Value = "Option1" Then
        Userform1.Show
    ElseIf Range("A2").Value = "Option2" Then
        Userform2.Show
    End If
End Sub

Tipps für Profis

  • Nutze das Userform-Objekt, um benutzerdefinierte Eingabemasken zu erstellen.
  • Stelle sicher, dass du Fehlerbehandlungsroutinen einfügst, um unerwartete Fehler abzufangen.
  • Verwende die Option Explicit-Anweisung am Anfang deines Codes, um sicherzustellen, dass alle Variablen deklariert werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Formulare beim Klick auf verschiedene Zellen öffnen?
Du kannst die Bedingung im If-Statement erweitern, um mehrere Formulare basierend auf dem Zellinhalt zu öffnen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in allen aktuellen Excel-Versionen funktionieren, die VBA unterstützen.

3. Was muss ich tun, wenn ich das Formular nicht sehen kann?
Überprüfe, ob das Formular im VBA-Editor vorhanden ist und ob es richtig benannt ist. Achte auch darauf, dass das Formular nicht hinter anderen Fenstern verborgen ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige