Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung vor Blattwechsel

Forumthread: Prüfung vor Blattwechsel

Prüfung vor Blattwechsel
16.09.2008 12:53:47
mtremer
Hallo Excel-Freunde,
kann man vor einem Blattwechsel eine Prüfung durchführen lassen?
Wenn nämlich z.B. A1 und C3 leer sind, soll man nicht auf ein anderes Blatt wechseln können. Erst wenn diese ausgefüllt sind, soll das möglich sein.
Geht das?
Danke.
Viele Grüße
Marco
Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung vor Blattwechsel
16.09.2008 13:02:02
Rudi
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error GoTo ENDE
Application.EnableEvents = False
With Sh
If .Name = "Tabelle1" Then
If .Range("A1") = "" Or .Range("C3") = "" Then .Activate
End If
End With
ENDE:
Application.EnableEvents = True
End Sub


Gruß
Rudi

Anzeige
AW: Prüfung vor Blattwechsel
16.09.2008 13:02:09
Hoffi
Hallo,
Code ins Modul des Tabellenblattes:

Private Sub Worksheet_Deactivate()
If [a1] = "" And [c3] = "" Then
MsgBox "geht net" 'Meldung anpassen
Sheets("Tabelle1").Activate 'Name des Tabellenblattes anpassen
End If
End Sub


Grüße
Hoffi

Anzeige
AW: Prüfung vor Blattwechsel
16.09.2008 13:30:00
mtremer
hm, irgendwie passiert nichts.
Ich habe von Euch beiden jeweils die Codes eingebaut, aber ich kann trotzdem auf die Tabelle2 gehen. Ob nun die beiden Felder ausgefüllt sind oder nicht...
Was mache ich falsch?
Viele Grüße
Marco
AW: Prüfung vor Blattwechsel
16.09.2008 13:38:00
Hajo_Zi
Hallo Marco,
hast Du den Code von Rudi auch an die beschriebene Stelle kopiert? Ich vermute Nein.

Anzeige
AW: Prüfung vor Blattwechsel
16.09.2008 14:01:00
mtremer
genau das vermute ich. Ich weiß ja auch nicht genau, wohin *schäm*
Kannst Du mir das sagen?
Danke.
Viele Grüße
Marco
AW: Prüfung vor Blattwechsel
16.09.2008 14:04:00
Hajo_Zi
Hallo Marco,
Rudi hatte geschrieben unter DiseArbeitsmappe. Also VBA Editor öffnen (Alt+F11) Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe und Code ins rechte Fenster kopieren.

Anzeige
AW: Prüfung vor Blattwechsel
16.09.2008 14:14:54
mtremer
ich fasse es nicht. Ich arbeite schon einige Zeit mit VBA, auch Dank Eurer Hilfe.
Aber das bekomme ich nicht hin. Alt+F11 geht ja noch einfach und das habe ich auch das ein oder andere Mal genutzt. Wo, zum Teufel nochmal, kann ich auf meine Datei oder DieseArbeitsmappe klicken?
Verzeih mir meine Ausdrucksweise, aber ich ärgere mich über mich selbst. Ich finde diese Doppelklicks nicht :-(
Viele Grüße
Marco
Anzeige
Stop, ich hab´s
16.09.2008 14:16:51
mtremer
Danke an alle, Ihr seid super.
Man muß nur die Augen dort haben, wo sie hin sollen ;-)
AW: Stop, ich hab´s
16.09.2008 14:32:42
mtremer
ich habe da noch eine kleine Zusatzfrage.
Etwas herumgespielt habe ich zwar schon, aber die Meldung kommt nicht so, wie ich sie mir wünsche.
Eine MessageBox (so habe ich die Zeile genannt: MsgBox "bitte alle Felder ausfüllen", vbCritical) soll zusätzlich erscheinen, wenn der Wechsel in Tabelle2 verwährt wird.
Wie mache ich das?
Danke.
Viele Grüße
Marco
Anzeige
AW: Stop, ich hab´s
16.09.2008 14:36:14
Hajo_Zi
Hallo Marco,

Option Explicit
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error GoTo ENDE
Application.EnableEvents = False
With Sh
If .Name = "Tabelle1" Then
If .Range("A1") = "" Or .Range("C3") = "" Then .Activate
MsgBox "bitte alle Felder ausfüllen", vbCritical
End If
End With
ENDE:
Application.EnableEvents = True
End Sub


Gruß Hajo

Anzeige
AW: Stop, ich hab´s
16.09.2008 14:36:15
Hajo_Zi
Hallo Marco,

Option Explicit
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error GoTo ENDE
Application.EnableEvents = False
With Sh
If .Name = "Tabelle1" Then
If .Range("A1") = "" Or .Range("C3") = "" Then .Activate
MsgBox "bitte alle Felder ausfüllen", vbCritical
End If
End With
ENDE:
Application.EnableEvents = True
End Sub


Gruß Hajo

Anzeige
AW: Stop, ich hab´s
16.09.2008 14:42:00
mtremer
genau das hatte ich auch schon. Wenn die Felder leer sind ist das richtig.
Wenn die Felder aber voll sind, kommt die MessageBox trotzdem...
Und nun?
Viele Grüße
Marco
AW: Stop, ich hab´s
16.09.2008 14:45:11
Hajo_Zi
hallo Marco,
das war es nicht ganz.
  • Option Explicit
    
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error GoTo ENDE
Application.EnableEvents = False
With Sh
If .Name = "Tabelle1" Then
If .Range("A1") = "" Or .Range("C3") = "" Then
.Activate
MsgBox "bitte alle Felder ausfüllen", vbCritical
End If
End If
End With
ENDE:
Application.EnableEvents = True
End Sub



    • Gruß Hajo
    Anzeige
    Das war´s. Danke.
    16.09.2008 14:51:00
    mtremer
    So ist´s besser ;-)
    Ich beneide Deine Geduld. Danke für die Hilfe.
    Viele Grüße
    Marco
    AW: Prüfung vor Blattwechsel
    16.09.2008 14:18:34
    Hajo_Zi
    Hallo Marco,
    ich bin nicht anbn meinem Home Pc darum hatte ich nur eine gekürzte Fassung geschrieben.
    nach Alt+F1 sollte das Bild zweigeteilt sein, ansonsten Strg+R, im Linken Fenster jetzt Doppelklick auf Deine Datei, usw.
    Gruß Hajo
    Anzeige
    AW: Prüfung vor Blattwechsel
    16.09.2008 14:29:20
    Rudi
    Hallo Hoffi,
    
Sheets("Tabelle1").Activate 'Name des Tabellenblattes anpassen


    Unnötig, wenn du einfach Me.Activate benutzt.
    Gruß
    Rudi

    AW: Prüfung vor Blattwechsel
    16.09.2008 15:42:48
    Hoffi
    Hallo Rudi,
    Danke für den Hinweis...
    Ich dachte Me geht nur bei UserForms.
    Naja, wieder was gelernt...
    Beste Grüße
    Hoffi
    Anzeige
    AW: Prüfung vor Blattwechsel
    16.09.2008 15:56:42
    Rudi
    Hallo,
    Me spricht immer das dem Klassenmodul zugeordnete Objekt an.
    In DieseArbeitsmappe weist Me auf das Workbook, in den Tabellenmodulen auf die Tabelle, etc.
    Gruß
    Rudi
    AW: Prüfung vor Blattwechsel
    16.09.2008 15:59:52
    Hoffi
    Hallo,
    Super, Danke für den Tip.
    Grüße
    Hoffi
    ;

    Forumthreads zu verwandten Themen

    Cursor springt in die Pampa - MultiLine TextBox
    Kilo

    Hallo liebe VBA Profis
    ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
    Leider kann ich keine Phänomene dieser Art gebrauchen.
    Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
    07.08.2008 20:31:08
    Thread-ID: 1000095
    2 Beiträge
    Eingabe formatiert zurückgeben (Komma und Punkt)
    Lemmi

    Hallo zusammen,
    ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
    Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
    Eingabe 10,0........Ausgabe...
    07.08.2008 21:35:00
    Thread-ID: 1000105
    5 Beiträge
    Anzeige
    Pivot-Bezug verformeln?
    Stefan

    Hallo zusammen!
    Ich möchte eine Auswertungspivot machen was ich aber immer auf den aktuellen Monat anpassen möchte.
    Tabellenblatt :Auswertung A1 : Monat ( auswählbar über Gültigkeitsliste) Tabellennamen:Monate
    ich wollte es so machen :
    Pivotbezug : =indirekt(Auswertung!A1&...
    08.08.2008 13:03:00
    Thread-ID: 1000262
    3 Beiträge
    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
    Schwellenwerte für eine Gruppierung setzen
    Michi

    Hallo zusammen,
    in einer excel-Tabelle muss ich für eine Variable Schwellenwerte setzen, um eine Dreiergruppierung zu erhalten (hochentwickelte Länder, Länder mittlerer Entwicklung und schwach entwickelte Länder).
    Welche Formel könnte helfen? Ich hätte da die zwei 25%-Quartile und den M...
    10.08.2008 11:48:00
    Thread-ID: 1000605
    3 Beiträge
    Makro ohne Pfadbezug erstellen.
    George

    Hallo,
    Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
    11.08.2008 08:46:50
    Thread-ID: 1000712
    3 Beiträge
    Cursor springt in Pampa (MultiLine TextBox)
    Kilo

    Hallo liebe VBA Profis
    (Danke an Jürgen, der sich meines Problems annehmen wollte, aber der UpLoad meiner Datei war irgendwie fehlgeschlagen - hier der 2. Versuch)
    ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
    Leider kann ich keine Phänomene...
    11.08.2008 12:15:00
    Thread-ID: 1000795
    5 Beiträge
    Anzeige
    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
    Pfad festlegen, brauch ma hilfe!
    sockel939

    Private Sub CommandButton8_Click() Sheets("Req.No.").Visible = 1 UserForm1.Show Dim oldWB As Workbook, newWB As Workbook Dim str As String Set oldWB = ActiveWorkbook With oldWB Selection.Copy str = oldWB.Sheets("Req.No.").Range("A1").Value End With Set newWB = Workbooks.Add With newWB.ActiveS...
    12.08.2008 10:10:18
    Thread-ID: 1001087
    6 Beiträge
    Anzeige
    spaltenbezeichnungen ändern sich einfach
    Julia

    Hallo!
    ich habe ein Problem: ich habe mehrere .xml dateien erstellt, die spalten oben waren immer durchbuchstabiert. jetzt stehen da aber bei den identischen datein plötzlich zahlen oben...
    warum und wie kann ich das rückgängig machen?
    dankeschön!
    julia
    12.08.2008 13:33:00
    Thread-ID: 1001182
    3 Beiträge
    Erweiterung der Schleife für mehrere Spalten
    Fred


    Hallo zusammen
    Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
    Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
    12.08.2008 13:57:31
    Thread-ID: 1001195
    3 Beiträge
    Code sorgt für 99%CPU Last und endet nicht?!?
    Lauren

    Hallo zusammen
    folgender code bewirkt eine Art Endlosschleife jemand ne Idee woran das liegen könnte, übersehe ich hier etwas?!?!
    Range("M2").Select ActiveCell.FormulaR1C1 = "=IF(COUNTIF(C[-12],RC[-12])>=3,RC[-3]*RC[-9],"""")" Selection.AutoFill Destination:=Range("M2:M" & Rang...
    12.08.2008 14:04:00
    Thread-ID: 1001198
    10 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    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