Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nach Zelleintrag starten

Forumthread: Makro nach Zelleintrag starten

Makro nach Zelleintrag starten
02.07.2006 10:46:41
Fritz
Hallo Forumsbesucher,
wie erreiche ich, dass ein Makro nur gestartet wird, wenn in eine bestimmte Zelle einer Tabelle (z.B. "Tabelle1") (z.B. ("Q23")eine Zahl eingetragen wurde.
Es ist mir egal, ob das Makro als automatisch nach Zahleneingabe oder nach "Aufruf" ausgeführt wird.
Vielen Dank für eure Hilfe
Gruß
Fritz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro nach Zelleintrag starten
02.07.2006 10:50:15
Josef
Hallo Fritz!
Füge am Beginn des Makros, nach den Deklarationen

If Len(Sheets("Tabelle1").Range("Q23")) = 0 Or Not Isnumeric(Sheets("Tabelle1").Range("Q23")) Then Exit Sub

ein.
Gruß Sepp

AW: Makro nach Zelleintrag starten
02.07.2006 10:51:24
Bugs
Hallo,
vielleicht hilft dir das weiter:
https://www.herber.de/forum/messages/778341.html

Rückmeldung wäre nett !!! 


>>> mfg Bugs <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Anzeige
AW: Makro nach Zelleintrag starten
02.07.2006 11:23:06
Fritz
Hallo,
ihr konntet mir helfen.
Vielen Dank euch Beiden.
Gruß
Fritz
@Josef Ehrensberger - Erweiterung
02.07.2006 11:49:05
Fritz
Hallo Sepp,
wäre es möglich, die Voraussetzungen unter denen das Makro gestartet wird, wie folgt zu erweitern: Das Makro soll nur gestartet werden, wenn in Zelle Q23 eine Zahl eingetragen ist und in der Datei eine Tabelle mit dem Tabellennamen dieser Zahl nicht existiert.
In einem solchen Fall möglicherweise ein Hinweis, dass die Tabelle schon existiert (Hinweis aber nicht zwingend)
Vielen Dank
Gruß
Fritz
Anzeige
AW: @Josef Ehrensberger - Erweiterung
02.07.2006 11:58:44
Josef
Hallo Fritz!
Eine Möglichkeit.
Dim objSh As Worksheet

If Len(Sheets("Tabelle1").Range("Q23")) = 0 Or Not IsNumeric(Sheets("Tabelle1").Range("Q23")) Then Exit Sub

On Error Resume Next
Set objSh = Sheets(Sheets("Tabelle1").Range("Q23").Text)
On Error GoTo 0

If Not objSh Is Nothing Then
  MsgBox "Gibt's schon!"
  Exit Sub
End If

'dein Code

Gruß Sepp

Anzeige
;

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