Bei Eintrag in Zelle MsgBox aufrufen, gaanz simpel

Sub Worksheet_SelectionChange(ByVal Target As Range) Set EingabeZelle = ThisWorkbook.Worksheets(1).Range("C9") If Intersect(Target, EingabeZelle) Is Nothing Then MsgBox "Ja" Else MsgBox "Nein" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Michael
Grundsächlich ist an dieser Codezeile nichts falsch
da du aber das Makro starten willst, wenn du in einer Zelle eine Eingabe
mit Enter abschließt, wirkt das Makro nur in dem Tabellenblatt, in dem du die Eingabe machst
da brauchst du die Zelle nicht unbedingt extra zu deklarieren
sondern kannst es so schreiben wie ich es dir gezeigt habe
und da kommt jetzt etwas was du nicht beachtet hast
wenn du eine Variable benutzt dann solltest du die auch deklarieren
also sollte in deinem Makro ziemlich direkt unter
Sub...
Dim Eingabezelle As Range
stehen
das wird auch bestimmt in deinem "Handbuch" so dargestellt gewesen sein
und da wird auch sicher in einem Kapitel die Rede von "Option Explicit"
gewesen sein, wenn du dich daran nicht mehr erinnerst solltest du da noch mal nachschauen
wird wahrscheinlich ein Kapitel mit der Überschrift:
Variablen
sein
was an deinem Makro aber eher falsch war, ist dass du SelectionChange gewählt hast
das reagiert nicht auf Eingabe mit Enter
sondern das reagiert auf das Auswählen einer Zelle
dann noch die Frage:
hast du das Makro komplett selber geschrieben?
das liegt nahe weil vor deinem Makro nicht "Private" steht
ein Ereignismakro wie SelectionChange
oder WorksheetChange wählt man im Tabellenblattmodul
über die linke Auswahlschaltfläche im Editor
dadurch wird der Kopf einer Sub automatisch ausgefüllt
eine normal Sub erwartet man eigentlich in einem allgemeinen Modul
MfG Tom

Hi Tom,
danke für deine ausführliche Antwort, ich habs dann hinbekommen:


Sub Worksheet_Change(ByVal Target As Range)
Dim EingabeZelle As Range
Set EingabeZelle = ThisWorkbook.Worksheets(1).Range("C9")
If Intersect(Target, EingabeZelle) Then
MsgBox "Ja"
End If
End Sub

Es ging mir halt um allererste Gehversuche in VBA, als Programmierer bin ich ein ganz guter Theoretiker soll heißen, in den letzten 3 Jahren habe ich einige Bücher über das Programmieren gelesen wenn auch nur 2 über VBA (Excel und Word) und eins über VB (Na ja, gut die Hälfte). Aber auch ein paar über Python, PHP und jetzt aktuelle ein C Kompendium, C ist ziemlich geil weil simpel. :) Aber auf was ich hinaus wollte. Ich habe wirklich wenig eigenen Code fabriziert und das wird mir immer mehr bewusst. Mir ist auch schon die Meinung entgegengekommen das man einfach ein Projekt starten soll und dann so am Projekt am besten lernt. Na ja, ganz falsch kann es auf jeden Fall nicht sein.
Zu deiner letzten Frage: Nö. In meiner Fantasie brauchte ich einfach nur über Google alle Fragmente für mein Projekt zusammensuchen, hintereinander rein kopieren und 1, 2, 3, fertig. :) Aber ich glaube das wird schon, nur erst mal wieder die Basics sich wieder bewusst machen und das klappt dann schon. Natürlich auf kosten meiner Umwelt, die ich mit überflüssigen Fragen nerve.
Gruss,
Micha

Beliebteste Forumthreads (12 Monate)

Bei Eintrag in Zelle MsgBox aufrufen, gaanz simpel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread