Vorsicht - Referenzierung
08.05.2011 17:38:24
Erich
Hi Steffen,
der Ausdruck "sht.Range(Cells(1, 8), Cells(1, 45))" kann leicht einen Fehler erzeugen.
Das "sht." vor dem Range muss nicht ausreichen. Cells(1,8) und Cells(1,45) gehören zum (zufällig) gerade aktiven Blatt
oder zu dem Blatt, zu dem der Code gehört. Das muss beides nicht sht sein.
Entweder ist "sht." vor Cells() erfotrderlich - oder überhaupt überflüssig.
Sicherer und einfacher ist die Verswendung eines With-Blocks, wie hier:
Sub myTest2()
Dim myUser As String, blnNot As Boolean
With Sheets("Tabelle1")
myUser = "Testperson" 'anpassen
Select Case myUser
Case "Name1", "Maeierer" ', "Testperson" ' evtl. weitere Namen
Case Else
If WorksheetFunction.CountIf(.Range(.Cells(1, 8), .Cells(1, 45)), _
myUser) = 0 Then blnNot = True
End Select
End With
If blnNot Then
MsgBox myUser & " ist nicht vorhanden "
Else
MsgBox myUser & " ist vorhanden "
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort