Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MSG-Box

MSG-Box
Peter
Schönen guten morgen an alle,
in einem Vordruck, der immer wieder benutzt wird, habe ich einen Makro eingebaut, mit dem die Eingabefelder in dem Vordruck immer wieder geleert wird.
Beim Öffnen des Vordrucks, erscheint immer eine MSG-Box mit Hinweisen zu dem Vordruck.
Kann man den Makro, der den Vordruck leert, so erweitern das bei jedem 5. mal wenn den Vordruck
leert, diese MSG-Box erneut zu sehen ist ?!
Gruß Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: MSG-Box
03.09.2012 08:59:37
Beverly
Hi Peter,
du in deinem Makro die Durchläufe in einer Zelle oder einer Variablen summieren, wenn 5 erreicht ist die Zelle oder Variable wieder leeren und dann die MsgBox anzeigen.

AW: MSG-Box
03.09.2012 09:41:34
Peter
Hallo Karin,
das sagt mir nicht wirklich was ...
-------------------------------------------------------------------------------------------------------
den Makro habe ich mir schon in und aus dem Forum "zusammen geschustert"
geht es, wenn man in dem Makro etwas "einbaut", das beim 5. mal die MSG-Box
wieder angezeigt wird ...
Sub Workbook_Open()
Dim a, b
a = "          "
b = Chr(13)
MsgBox b & b & b & a & "H I N W E I S  ! !" & a & a & b & b & b & b & _
a & "Text" & a & a & b & b & _
a & "Text" & a & b & b & _
a & a & b & b, 0 + 64, "F a x a n h a n g   b e a c h t e n    ! ! !"
End Sub

Gruß Peter

Anzeige
AW: MSG-Box
03.09.2012 09:54:47
UweD
Hallo
so z.B.
Sub leeren()
Dim TB
Set TB = Sheets("Tabelle1") 'Blatt und Zelle anpassen
'++ dein Macro
TB.Range("Z1") = TB.Range("Z1") + 1
If TB.Range("Z1") = 5 Then
Workbook_Open ' aufrufen Hinweis
End If
End Sub
Gruß UweD

AW: MSG-Box
03.09.2012 09:58:59
UweD
Hallo nochmal
hab das Rücksetzen vergessen:
Sub leeren()
Dim TB
Set TB = Sheets("Tabelle1") 'Blatt und Zelle anpassen
'++ dein Macro
TB.Range("Z1") = TB.Range("Z1") + 1
If TB.Range("Z1") = 5 Then
Workbook_Open ' aufrufen Hinweis
TB.Range("Z1") = 0
End If
End Sub
Gruß UweD

Anzeige
AW: MSG-Box
03.09.2012 10:05:00
Rudi
Hallo, 
Private Sub Workbook_Open()
Dim i
Dim a As String, b As String
a = "          "
b = Chr(13)
Const strProp As String = "MeinZaehler"
On Error Resume Next
i = CustomDocumentProperties(strProp)
On Error GoTo 0
If IsEmpty(i) Then
CustomDocumentProperties.Add _
Name:=strProp, _
Type:=msoPropertyTypeNumber, _
LinkToContent:=False, _
Value:=0
Else
i = i + 1
CustomDocumentProperties(strProp) = i
End If
If i Mod 5 = 0 Then
MsgBox b & b & b & a & "H I N W E I S  ! !" & a & a & b & b & b & b & _
a & "Text" & a & a & b & b & _
a & "Text" & a & b & b & _
a & a & b & b, 0 + 64, "F a x a n h a n g   b e a c h t e n    ! ! !"
End If
End Sub

Gruß
Rudi

Anzeige
Je nach Aufbau des GesamtPgms könnte auch ...
04.09.2012 16:18:20
Luc:-?
…eine Static- bzw Global-Variable erforderlich sein, die nach jedem 5.PgmAufruf zurückgesetzt wird. Das kann man ohne Kenntnis des Gesamtablaufs nicht entscheiden, Peter,
das musst du selbst herausfinden. Ggf musst du halt in der VBE-Hilfe nachlesen!
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige