Bereich überprüfen VBA

18/02/2013 - 08:25 von Peter Schuerer | Report spam
Hallo Zusammen,

ich muss überprüfen:

If [Tabelle3].Range("A36") And [Tabelle3].Range("A44") = "" Then
Exit Sub

Leider bekomme ich die Fehlermeldung: "Typen unvertràglich".
Wo liegt hier mein Fehler?

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
18/02/2013 - 08:34 | Warnen spam
Hallo Peter,

Am Mon, 18 Feb 2013 08:25:41 +0100 schrieb Peter Schuerer:

If [Tabelle3].Range("A36") And [Tabelle3].Range("A44") = "" Then
Exit Sub



entweder:
With Sheets("Tabelle3")
If .Range("A36") = "" And .Range("A44") = "" Then _
Exit Sub
End With

oder:
With Sheets("Tabelle3")
If Len(.Range("A36")) + Len(.Range("A44")) = 0 Then _
Exit Sub
End With


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen