Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung

Fehlermeldung
27.01.2006 07:39:11
Merlin
Hallo Leute
hab da einen code der klappt bei Office XP aber nicht bei Excel 97 da kommt immer eine fehlermeldung (Typen unverträglichkeit). Könnt ihr mir helfen ?
Gruß Merlin

Sub uuu()
Selection.Value = 100
Dim zelle As Range
For Each zelle In Range("c4:ag28")
If zelle.Value = 100 And Cells(zelle.Row, 38) = "" Then (Diese Zeile wird Gelb)
MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich"
zelle.ClearContents
End If
Next zelle
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung
27.01.2006 08:31:40
Ceci
Hallo Merlin,
versuch mal so, hat bei mir dann schon funktioniert:

Sub uuu()
Dim zelle As Range
Worksheets("Blattname_hier_eingeben").activate
Selection.Value = 100
For Each zelle In Range("c4:ag28")
If zelle.Value = 100 And Cells(zelle.Row, 38) = "" Then (Diese Zeile wird Gelb)
MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich"
zelle.ClearContents
End If
Next zelle
End Sub

Allerdings hab ich den Code jetzt nicht mehr getestet. Das Prinzip ist einfach so, dass man das Tabellenblatt zunächst aktiviert. Versuch's mal...
mfg Cäzilia
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige