Skript / Makro in Excel durch Klicken auf eine Zelle

In Excel 2010 möchte ich etwas tun. Insbesondere soll es mir möglich sein, das geöffnete Blatt zum Laden von Daten aus einer Textdatei zu veranlassen, indem ich auf eine Zelle des aktuell geöffneten Arbeitsblatts klicke.

Meine spezifischen Bedürfnisse sind also:

1. Wenn es irgendwie möglich ist, ein Makro / Skript durch Klicken auf eine Zelle zu starten.

Über das Skript / Makro:

2. Was wäre Ihrer Meinung nach die bevorzugte Art der Umsetzung?

3. Und genauer gesagt, wie Sie die benötigten Daten automatisch importieren, indem Sie nur auf klicken, ohne die gewünschte TXT-Datei jedes Mal, maximal einmal, beim Start oder mithilfe einer benutzerdefinierten "Initialisierungs- / Konfigurationsdatei" fortlaufend angeben zu müssen.

Hier ist ein ganz spezielles Beispiel, das Sie an Ihre Bedürfnisse anpassen können. Es ist ein Arbeitsblattereignismakro, das durch Doppelklicken auf Zelle B9 ausgelöst wird :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub
Cancel = True
Dim TextLine As String
    Close #1
    Open "C:\TestFolder\test.txt" For Input As #1
    i = 1
    j = 0
    Do While Not EOF(1)
        Line Input #1, TextLine
            j = j + 1
            Cells(i, j) = TextLine
        Loop
    Close #1
End Sub

Die Änderungen, die Sie vornehmen müssen:

1. Die Zelle, auf die Sie doppelklicken müssen, ist B9
2. die Dateispezifikation der zu öffnenden Textdatei
3. das Ziel für die importierten Daten

Da es sich um Arbeitsblattcode handelt, ist die Installation sehr einfach und die Verwendung automatisch:

1. Klicken Sie mit der rechten Maustaste auf den Registerkartennamen am unteren Rand des Excel-Fensters
2. Wählen Sie Code anzeigen. Dadurch wird ein VBE-Fenster geöffnet
3. Fügen Sie das Material ein und schließen Sie das VBE-Fenster

Wenn Sie Bedenken haben, versuchen Sie es zunächst auf einem Testarbeitsblatt.

Wenn Sie die Arbeitsmappe speichern, wird das Makro mit dieser gespeichert. Wenn Sie eine Excel-Version später als 2003 verwenden, müssen Sie die Datei als .xlsm und nicht als .xlsx speichern

So entfernen Sie das Makro:

1. Öffnen Sie die VBE-Fenster wie oben
2. Löschen Sie den Code
3. Schließen Sie das VBE-Fenster

Weitere Informationen zu Makros im Allgemeinen finden Sie unter:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

und

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Weitere Informationen zu Ereignismakros (Arbeitsblattcode) finden Sie unter:

http://www.mvps.org/dmcritchie/excel/event.htm

Makros müssen aktiviert sein, damit dies funktioniert!

Wenn es keinen dringenden Grund für die Aktivierung des Zellenklicks gibt, ist es die einfachste Methode, ein Schaltflächenobjekt zu erstellen.

Wechseln Sie zur Registerkarte "Entwickler", und wählen Sie "Einfügen" und dann "Auswählen" aus den ActiveX-Steuerelementen

Klicken Sie anschließend auf die Form Ihrer Schaltfläche und ziehen Sie sie heraus. Klicken Sie dann mit der rechten Maustaste darauf und wählen Sie Eigenschaften aus.

Hier können Sie beispielsweise den auf der Schaltfläche angezeigten Text und die Farbe der Schaltfläche ändern. Wenn Sie beim Klicken mit der rechten Maustaste die Option „Formatkontrolle“ auswählen und zu „Eigenschaften“ wechseln, können Sie das Kontrollkästchen so einstellen, dass es sich beim Ändern von Zellen / Zeilen / Spalten nicht verschiebt und erneut überprüft.

Klicken Sie anschließend mit der rechten Maustaste auf die Schaltfläche und wählen Sie Code anzeigen

Dadurch gelangen Sie zum Codefenster, in das Sie Ihre VBA einfügen können. Von dort aus geben Sie den Rest von Garys Code in Dim TextLine ein.

Kehren Sie schließlich zur Registerkarte Entwickler zurück und deaktivieren Sie den Entwurfsmodus

Sie können den Button jetzt testen. Wenn Sie Änderungen daran vornehmen oder es verschieben müssen, wählen Sie einfach den Entwurfsmodus erneut aus.