Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

counter-funktion für makros? nur einmal ausführen!

counter-funktion für makros? nur einmal ausführen!
Ulf
Hi,
bei aktivierung von einem blatt wird folgender makro gestartet:

Private Sub Worksheet_Activate()
Mldg = "blabla"
Stil = vbInformation
Titel = "Instructions"
Antwort = MsgBox(Mldg, Stil, Titel)
End Sub

wie kann ich diesen nur einmal ausführen lassen,wenn ich ein weiteres mal diese blatt aktiviere?
gibt es sowas wie eine counter-funktion für makros?
danke
uLf
AW: counter-funktion für makros? nur einmal ausführen!
soendi
ja... klar
schreib eine 0 in irgend eine zelle (annahme: A1)

Private Sub Worksheet_Activate()
If Range("A1")<>0 Then Exit Sub
Mldg = "blabla"
Stil = vbInformation
Titel = "Instructions"
Antwort = MsgBox(Mldg, Stil, Titel)
Range("A1").Value = 1
End Sub

geht natürlich auch mit anderen sachen, wie buchstaben, etc...
gruss
soendi
he he, warum kompliziert wenns auch... THX
Ulf
genial einfach
AW: he he, warum kompliziert wenns auch... THX
soendi
geht natürlich auch mit 2 mal anzeigen...
am anfang if range > 2 then exit sub...
dann machst du einen zähler und am schluss sagst du i = i+1
danke für die rückmeldung!
gruss
soendi
Anzeige
das interessiert mich un doch
Ulf
wo ist grad der haken?

Private Sub Worksheet_Activate()
If Range("A1") > 2 Then Exit Sub
Mldg = "blabla"
Stil = vbInformation
Titel = "Instructions"
Antwort = MsgBox(Mldg, Stil, Titel)
i = i + 1
Range("A1").Value = i
End Sub

AW: das interessiert mich un doch
05.04.2004 16:24:22
soendi
hallo...
du musst ihm zuerst sagen, was i ist...

Private Sub Worksheet_Activate()
i = Range("A1").Value 'am anfang noch bei 0!
If i > 2 Then Exit Sub
Mldg = "blabla"
Stil = vbInformation
Titel = "Instructions"
Antwort = MsgBox(Mldg, Stil, Titel)
i = i + 1
Range("A1").Value = i
End Sub

gruss
soendi
Anzeige
AW: das interessiert mich un doch
Nepumuk
Halo Ulf,
der Haken ist der, wenn du die Mappe speicherst und wieder öffnest, kommt die Meldung nicht mehr, da in A1 schon was drin steht. Wenn eine Meldung dauerhaft nicht mehr angezeigt werden soll, dann schreib einen Eintrag in die Registry. Wenn die Meldung Nach dem öffnen der Mappe nur einmal angezeigt werden soll, dann deklariere eine öffentliche Variable, die du in dem Meldungmakro abfrägst und nach der Meldung einen Wert zuweist.
Beispiel: https://www.herber.de/bbs/user/4964.xls
Gruß
Nepumuk
AW: das interessiert mich un doch
Ulf
hatte das nun so gelöst, dass beim start die zählzelle den wert 0 bekommt
aber deine variante ist eleganter!
kann man hier auch ein zählfunktion einbauen?
also max. 3 mal einblenden
Anzeige
AW: das interessiert mich un doch
Nepumuk
Hallo Ulf,
man kann, frau auch. Ändere die Variable in Modul1 so:
Public bytgemeldet As Byte
und das Makro in Tabelle2 so:


Private Sub Worksheet_Activate()
    If bytgemeldet < 3 Then
        MsgBox "blabla", 64, "Instructions"
        bytgemeldet = bytgemeldet + 1
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: das interessiert mich un doch
06.04.2004 09:30:01
uLf
THX
wird zeit, dass ich nen vba-kurs bekomme, damit ich nicht nur lesen, sondern auch richtig schreiben kann
u.

299 Forumthreads zu ähnlichen Themen

Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Anzeige
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Anzeige
Internet Formular ausfüllen
Hans

Hallo
Ist es möglich per VBA das folgende Formular auszufüllen und die Schaltfläche "Suchen" zu betätigen, sodass das Ergebnis im Internetexplorer angezeigt wird.
URL: http://www.ictax.admin.ch/extern/faces/searchInstrument.xhtml?lang=de
Gibt es mit "SendKeys" eine sichere Möglichk...
15.01.2009 11:43:23
Thread-ID: 1040044
3 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Bildlaufleiste aus Formular verschwindet
Willehard

Hallo!
Für eine Umfrage habe ich aus der Symbolleiste Formular eine Bildlaufleiste eingefügt. Wenn ich jetzt auf dieses Element klicke, verschwindet die Bildlaufleiste bei funktionierender Zellverknüpfung. Die Anfasspunkte sind noch vorhanden. Das Objekt erscheint bei erneutem Klick kurz wi...
30.04.2009 00:03:13
Thread-ID: 1072034
2 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Anzahl Zeilen in einer Zelle
Maik.F

Hallo Excel-Freunde,
ich habe eine Zelle so formatiert, daß Zeilenumbrüche zugelassen sind. In einigen Zellen können bis zu fünf Zeilen entstehen. Die Zeilenumbrüche werden NICHT durch ALT + ENTER erzeugt, sondern entstehen aufgrund der Textlänge.
Gibt es eine Möglichkeit, die Anzahl de...
26.06.2009 18:24:20
Thread-ID: 1084680
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
6
9
2
2
2
1
6
17
5
3
7
1
2
4
4
7
3
4
5
4
2
3
6