MSG Box, wenn daten fehlen !!!

Hallo VBA Profis, habe da eine nicht ganz so leichte frage. Ich habe drei Spielberichte, siehe beispiel.
Für den ersten Spielbericht, sollten in den Feldern A3 bis A9 und F3 bis F9 die Nummern der Spieler Namen eingetragen sein und die Felder C4 bis C9 und H4 bis H9 die erforderlichen Startnummern. Sollte ich jetzt weiter zum eigentlichem Spielschein klicken und eine Nummer ist nicht eingetragen, sollte eine MSG Box erscheinen, die darauf hinweist, (Achtung! es sind noch nicht alle daten erfasst) Sollten alle Nummern eingetragen sein, sollte hier stehen (weiter zum Spielbericht) Tabelle 2
das gleich gilt für den bereich A10 bis A16 und F10 bis F16 für die Namen und C11 bis C16 und H11 bis H16 für die Start Nummern. Wenn alles stimmt weiter zum Spielbericht Tabelle 3
Nun kommst für den Spielbericht drei sollte es lauten A3 bis A16 und F3 bis F16 für die Namen und C4 bis C16 und H4 bis H16 für die Start Nummern.
Wenn hier alles eingetragen ist, weiter zur Tabelle Pilotprogramm.

Startseite

	A	B	C	D	E	F	G	H
1	Wichtig! lfd.Nr.und Start Nr. eingeben!
2	lfd. Nr.	Gastgeber	Start Nr.			lfd. Nr.	Gast	Start Nr.
3	1	CfK GW 65 Rösrath 6				114	GW Bensberg 4
4	11	Enderlein, Helmut	31			125	Fischer, Sven	20
5	8	Henschel, Werner	41			147	Filip, Roland	14
6	12	Döpper, Paul	25			143	Fischer, Lars	29
7	14	Pütz, Heinz	33			120	Eicke, Tim	22
8
9
10	55	SKC 67 Paffrath 4				642	SK Agger - Sieg 4
11	73	Lingemann, Walter	20			653	Klandt, Jörg	20
12	76	Dr. Matena, Hans	25			669	Ruhnau, Georg	19
13	56	Balzer, Gerd	21			673	Schröder, Joachim	10
14	79	Reinken, Theo	19			672	Schmitz, Norbert	15
15
16

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Ich glaube das ist eine harte Nuss
im voraus besten Dank
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus!
Damit solltest du weiterkommen:
Sub liga1() For i = 3 To 16 Range("A" & i).Activate If ActiveCell.Value = "" Then MsgBox ("Es sind noch nicht alle Daten eingegeben! In Zelle " & ActiveCell.Adress & "fehlt noch was!") End If Next i For j = 3 To 16 Range("F" & j).Activate If ActiveCell.Value = "" Then MsgBox ("Es sind noch nicht alle Daten eingegeben! In Zelle " & ActiveCell.Adress & "fehlt noch was!") End If Next j For k = 4 To 16 Range("C" & i).Activate If ActiveCell.Value = "" Then MsgBox ("Es sind noch nicht alle Daten eingegeben! In Zelle " & ActiveCell.Adress & "fehlt noch was!") End If Next k For l = 3 To 16 Range("H" & l).Activate If ActiveCell.Value = "" Then MsgBox ("Es sind noch nicht alle Daten eingegeben! In Zelle " & ActiveCell.Adress & "fehlt noch was!") End If Next l Worksheets("Haupttabelle").Activate End Sub Gruss Tobias

Sub alle_Blaetter() Worksheets("Tabelle1").Activate liga1 Worksheets("Tabelle2").Activate liga1 Worksheets("Tabelle3").Activate liga1 Worksheets("Pilotprogramm").Activate End Sub Dieses Makro arbeitet dann alle Arbeitsblaetter ab, die du beschrieben hast... Gruss Tobias

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread