MsgBox Anzeige optimieren

Forumthread: MsgBox Anzeige optimieren

27.05.2025 09:41:26

NicoHendrik

Hallo Zusammen,

wenn ich in der Spalte b2 etwas eingetragen hab und noch nicht in c2, kommt die Meldung „ist Leer“. Diese Meldung quittiere ich mit OK

wenn ich dann danach in der Spalte b3 etwas eingetragen hab und noch nicht in c3 kommt die Meldung „ist Leer“. Diese Meldung quittiere ich mit OK. Diese Meldung muss jetzt 2-mal quittierte werden

Nach dem Eintrag auf B7 muss sie 6 mal quittiert werden.

Das kommt natürlich nur weil ich bis dahin in Spalte C noch nichts eingetragen hab.

Mein Problem:
1. Ich möchte erst in Spalte C was eintragen, wenn ich mit Spalte B fertig bin.
2. Da Spalte B und C 40 Zeilen lang sind, ist meine Methode mit den VBA bestimmt so nicht Optimal

Bitte um Hilfe

Gruß Nico
https://www.herber.de/bbs/user/177590.xlsm

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox Anzeige optimieren

27.05.2025 09:53:24

UweD
AW: MsgBox Anzeige optimieren

27.05.2025 10:36:55

NicoHendrik
AW: MsgBox Anzeige optimieren

27.05.2025 09:53:56

ReginaR
AW: MsgBox Anzeige optimieren

27.05.2025 10:31:09

NicoHendrik
AW: MsgBox Anzeige optimieren

27.05.2025 10:40:44

hary
AW: MsgBox Anzeige optimieren

27.05.2025 11:46:27

NicoHendrik
AW: MsgBox Anzeige optimieren

27.05.2025 12:12:52

BoskoBiati
AW: MsgBox Anzeige optimieren

27.05.2025 12:30:13

NicoHendrik
AW: MsgBox Anzeige optimieren

27.05.2025 12:47:53

BoskoBiati
AW: MsgBox Anzeige optimieren

27.05.2025 13:14:18

NicoHendrik

AW: MsgBox Anzeige optimieren

27.05.2025 09:53:24

UweD

Hallo

Ok. wenn also B komplett gefüllt ist, soll erst die Msgbox erscheinen.
wie oft? so lange, bis auch C komplett ist?

dann so?

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim RNG As Range

    Set RNG = Range("B2:B7") 'anpassen

    

    If WorksheetFunction.CountA(RNG) = RNG.Count And _

        WorksheetFunction.CountA(RNG.Offset(0, 1)) > RNG.Count Then

    

       MsgBox "Ist leer"

    End If



End Sub

LG UweD

AW: MsgBox Anzeige optimieren

27.05.2025 10:36:55

NicoHendrik

Hallo Uwe, die Meldung soll bei jeden Eintrag in B sein. B hat 40 Zeilen, wird aber nicht immer komplett ausgefüllt. Die Meldung wird mit Ok quittiert, sollen aber auch gelöscht werden wenn in Der betreffende Zelle C was drin steht.

Grus Nico

AW: MsgBox Anzeige optimieren

27.05.2025 09:53:56

ReginaR

Moin,

die zahlreichen Wiederholungen kann man mit einer Schleife lösen. Wann genau soll denn die Meldung erscheinen? Wenn in B twas steht und man in der gliechen Zeile C verlässt? Oder wann?

VG
Regina

AW: MsgBox Anzeige optimieren

27.05.2025 10:31:09

NicoHendrik

Moin Regina, die Meldung soll kommen wenn in B was steht und in C noch nichts. Die Eingaben in C kann bis zu 40 Zeilen lang sein, sind es aber nicht immer.

Gruß Nico

AW: MsgBox Anzeige optimieren

27.05.2025 10:40:44

hary

Moin Nico
Ich möchte erst in Spalte C was eintragen, wenn ich mit Spalte B fertig bin.
Versteh ich es richtig? Du moechtest erst alle Zellen in B fuellen und erst dann SpalteC?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Bereich As Range

Set Bereich = Range("C2:C7") '--Bereich anpassen

If Not Intersect(Target, Bereich) Is Nothing Then

  If Application.CountA(Bereich)  Bereich.Rows.Count Then

    Application.EnableEvents = False

      Target = ""

       Cells(Cells(Bereich.Rows.Count + 1, 2).End(xlUp).Row + 1, 2).Select

  End If

End If

  Application.EnableEvents = True

End Sub

gruss hary

AW: MsgBox Anzeige optimieren

27.05.2025 11:46:27

NicoHendrik

Hallo Hary,

ich habe die Datei so wie sie funktionieren soll abgeändert und nochmal hochgeladen. In meinem Alter ist es wohl etwas schwierig, was vernünftig zu erklären

Jetzt geht es mir darum das ich nicht so ein Haufen If`s in meinen Code habe, also Vernünftig und aufgeräumt.

Gruß Nico
https://www.herber.de/bbs/user/177592.xlsm

AW: MsgBox Anzeige optimieren

27.05.2025 12:12:52

BoskoBiati

Hi,

ich weiß nicht, was Du vorhast, aber ich habe ein paar Fragen:

1. Was sollen die 1er in A bewirken?
2. Warum die MsgBox "Ist leer"?

Versuche mal den Code:

Private Sub Worksheet_Change(ByVal Target As Range)



Dim loA As Long

loA = Target.Row

If Cells(loA, 1) = "" And Cells(loA, 3) = "" And Cells(loA, 4) = "" Then MsgBox "istleer"

If Cells(loA, 3) > "" Then Cells(loA, 1) = 1



End Sub

Gruß

Edgar

AW: MsgBox Anzeige optimieren

27.05.2025 12:30:13

NicoHendrik

Hallo Edgar, die 1 in A2 ist die Sperre das die Box nochmal aufgerufen wird wenn mann zb. die zweite Eingabe in c3 macht ohne vorher in d2 was rein zu schreiben. Der Code funktioniert so ganz gut bis c7. Weitere If`s hab ich ja nicht gemacht, da sie zuviel werden sollte mal 40 Einträge in C gemacht werden. Die Sperre in A wird dann mit einen Button (Code Clear) aufgehoben.

Gruß Nico

AW: MsgBox Anzeige optimieren

27.05.2025 12:47:53

BoskoBiati

Hi,

dann probiere mal das:

https://www.herber.de/bbs/user/177593.xlsm

Gruß

Edgar

AW: MsgBox Anzeige optimieren

27.05.2025 13:14:18

NicoHendrik

vielen Dank Edgar, klappt jetzt prima.

Gruß Nico

Forumthread: MsgBox Anzeige optimieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread