Bereich abfragen

Forumthread: Bereich abfragen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bereich abfragen

Bereich abfragen

28.03.2004 23:53:22

DieterG

Hallo,
per Makro werden Werte aus Tabelle1 in Tabelle2 übertragen!
Mein Problem:
Das Makro soll nur dann laufen, wenn in einem bestimmten Bereich in Tabelle1 z.B. A10:A25 mindestens ein X eingegeben wurde.
Wenn der Bereich leer ist soll abgebrochen werden und eine MsgBox ("X eingeben") erscheinen!
Danke für Euerer Hilfe

Gruß Dieter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich abfragen

28.03.2004 23:58:28

Josef Ehrensberger
AW: Bereich abfragen

29.03.2004 00:26:58

DieterG
Danke für die Rückmeldung! o.T.

29.03.2004 00:43:11

Josef Ehrensberger

AW: Bereich abfragen

28.03.2004 23:58:28

Josef Ehrensberger

Hallo Dieter!
Z.B. so!

Sub test()
Dim intX As Integer
If WorksheetFunction.CountIf([A10:A25], "X") > 0 Then
MsgBox """X"" vorhanden!"
'Anstelle der MsgBox dein Code
Else
MsgBox "Kein ""X"" vorhanden!"
End If
End Sub