Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

"Diese Meldung in Zukunft nicht mehr zeigen"

"Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:01:04
Norbert
Hallo,
Anwender erhält über userform eine Info. Nach 5x anzeigen dieser Info, hat er's vielleicht kapiert und will die Info nicht mehr sehen.
Soll dann einen Button oder eine Optionsschaltfäche anklicken gemäß Betreff.
Hat jemand eine Idee ?
Gruß
Norbert

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:08:53
Tobias Marx
Servus!
Habs etwas vereinfacht, einfach dass die Meldung nach 5 Starts nicht mehr erscheint, sonst muesste man nen Umweg ueber ne Userform gehen.

Private Sub Workbook_Open()
Worksheets("Test").Activate
If Range("A1").Value = "" Then
Range("A1").Value = 1
Else
If Range("A1").Value <= 5 Then
MsgBox("Hinweis")
End If
End If
End Sub

Gruss

Tobias
Fehler behoben, verfeinert
06.04.2005 15:14:59
Tobias Marx
Servus!

Hatte nen Fehler im Code, so klappt er

Private Sub Workbook_Open()
Worksheets("Test").Activate
If Range("A1").Value = "" Then
Range("A1").Value = 1
Else
If Range("A1").Value < 6 Then
MsgBox ("Hinweis")
Range("A1").Value = Range("A1").Value + 1
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Worksheets("Tabelle1").Activate
End If
End If
End Sub

Gruss

Tobias
Anzeige
AW: Fehler behoben, verfeinert
06.04.2005 15:30:36
Norbert
Hallo Tobias,
einerseits vielen Dank. Andererseits habe ich mir durch Deinen Beitrag im off-topic mal ein paar Deiner Antworten angesehen. Habe einen Tipp für Dich: den Beitrag des Fragenden genau durchlesen und bei Unklarheiten ggfs. noch einmal nachfragen. So ersparst Du Dir auch selbst unnötige Arbeit.
Ich hatte in meiner Frage schon geschrieben, daß ich eine userform verwende. Ich habe nirgendwo geschrieben, daß diese bei Öffnen der Datei erscheint. Auch die genannten 5x sind ein Beispiel.
Die Kernfrage ist, wie erreiche ich es, daß eine userform mit einer Info nicht mehr erscheint, nachdem der Nutzer dieser Datei (wann und wie auch immer) eingegeben hat, daß er diese Info nicht mehr sehen will.
Gruß
Norbert
Anzeige
AW: Fehler behoben, verfeinert
06.04.2005 15:53:39
Tobias at Home
Da hast du wohl recht, muss ich noch dran arbeiten - aber wie sagt man so schoen? Uebung macht den Meister :)
Gruessle
Toby
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:11:39
tombo
rehi,
ich würde einen Knopf einbauen "Diese Meldung nicht mehr anzeigen" mit Opt. Ja/Nein.
Wenn "Nein" dann dieses in dem Excelblatt (oder einer ASCI-Datei auf C): zwischenspeichern.
Beim WorkbooksOpen diesen Ort/Speicherplatz abfragen und den Hinweis nur noch dann anzeigen, wenn der entsprechende Eintrag vorhanden ist.
Gruß tombo
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:40:06
Norbert
Hallo tombo,
auch Dir vielen Dank. Ich möchte einen Weg gehen, der nicht bei jedem Öffnen der Datei gegangen werden muß. Von mir aus kann das gesamte Makro, das die userform mit der Info aufruft, gelöscht werden, wenn der Nutzer einmal angeklickt hat, daß er die Info nicht mehr sehen will.
Gruß
Norbert
Anzeige
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:46:09
tombo
hallo andi,
wenn das Marko gelöscht wird, erscheint es aber nicht nur bei dem einen User nicht mehr, sondern auch bei allen anderen Nutzern, die auch später dahin kommmen, nicht mehr!
ISt das sinnvoll, gewollt?
Gruß tombo
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 15:51:22
tombo
Wenn Du wirklich das ganze Modul löschen möchtest:


Sub ModulLöschen()
'On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul2")
End With
End Sub

AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 17:19:38
Norbert
Hallo tombo,
so sollte es gehen. Vielen Dank.
Gruß
Norbert
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 18:27:35
Peter Feustel
Hallo Norbert,
sieh dir die beigefügte Mappe an, hier wird eine UF auf Dauer 'abgewählt'.

Viele Grüße Peter
https://www.herber.de/bbs/user/20791.xls
Anzeige
AW: "Diese Meldung in Zukunft nicht mehr zeigen"
06.04.2005 20:50:00
Herbert
Hallo Peter,
ganz schlechter Stil, Code der sich selbst modifiziert. Außerdem wird der Benutzer
bei Standardeinstellung mit der Meldung konfrontiert, dass der Zugriff auf das
Visaul Basic Projekt nicht sicher ist.
Grüße Herbert

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4