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

VBA-Überprüfung, Problem mit Code

VBA-Überprüfung, Problem mit Code
23.02.2003 11:46:34
T.Gerber
Hi,
habe bereits vor einigen Tagen einen Thread bezüglich des nachfolgenden Codes geschrieben. Habe immer noch ein Problem damit. Ich bekomme
die Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich.
Mein Code:
Dim bMonat As Byte
Dim bCount As Byte
Dim bFraMonat As Byte
For bFraMonat = 9 To 10
If IsEmpty(Cells(19, bFraMonat)) Then Exit Sub
bMonat = Month(CDate("1." & Cells(19, bFraMonat) & ".2001"))
For bCount = 24 To 23 + [f17]
Select Case bFraMonat
Case Is = 9
With Cells(bCount, 4)
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
Else
.Offset(0, 1) = ""
End If
End With
Case Is = 10
With Cells(bCount, 4)
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
End If
End With
End Select
Next
Next
Folgendes möchte ich mit dem Code bezwecken: Er soll die Zelle i19 - in welcher der Monatsname steht (Bsp.: Januar) mit den Zellen D24 bis D95
(hier steht das atum : 01.01.2003, 01.02.2003, etc.) abgleichen. Sofern der Monatsname (Bsp.: Januar) und der Monat im Datum übereinstimmt (Bsp.:
Zelle i19 = Januar und Zelle d24 01.01.2003), dann soll in Zelle E24 eine 1 eingetragen werden. Sofern dies nicht stimmt, soll nichts eingetragen
werden. Der gleiche Abgleich soll mit Zelle j 19 erfolgen. Vielen Dank bereits im Voraus. Gruss
T.Gerber
P.S. Die Fehlermeldung kommt in folgender Zeile: bMonat = Month(CDate("1." & Cells(19, bFraMonat) & ".2001"))

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA-Überprüfung, Problem mit Code
23.02.2003 11:48:13
Hajo_Zi

Hallo T Gerber

"Zitat FAQ Herber: Stelle bitte keine Fragen im Rundumschlag. Es kommt vor, dass Fragen im Spotlight-Forum, in der
Excel-NewsGroup, an mich persönlich und gleichzeit hier ins Forum gepostet werden. Damit steigen zwar die
Chancen des Fragestellers, eine Antwort zu bekommen, andererseites beschäftigt er ganze Völkerschaften mit
seinem Problem, was die Chance anderer Fragestellern auf eine Antwort wiederum verringert. Dieses
Verhalten ist nicht fair und wird nicht toleriert"

Mit dem doppelten Posting in den Foren ist das so ein Problem, wird der Beitrag in mehreren Foren gleichzeitig gepostet arbeiten mehrere Helfer gleichzeitig an der Lösung. Sollten nun mehrer Helfer sich mit der Beantwortung und Lösungssuche befassen arbeitet nur einer an der endgültigen Lösung und die anderen für den Papierkorb. Bei Helfern kostet es Zeit und es machen alle diese Arbeit kostenlos. Und ich sehe es als nicht Achtung der Arbeit der Helfer an, wenn die Frage gleichzeitig in mehreren Foren gestellt wird. Sinn und Zweck des Forums ist es aber ein geben und nehmen. Wenn in einem gewissen Abstand nicht Minuten in anderen Foren gepostet wird hat keiner was dagegen.
Dies ist nur meine Meinung zu dem Problem und mit diesen Beiträgen befasse ich mich nicht. Da löse ich lieber andere Probleme.
Es braucht mir auch keiner schreiben er kauft sich auch mehrere Bücher oder läst sich mehrere Angebote machen. Da übersieht er nur einen Entscheidenden Punkt. Der Autor hat sein Geld schon bekommen und die Preise für die Angebote werden schon so geplant das bei einem Verhältnis von 1 zu 10 noch Gewinn rauskommt. Hier in dem Forum beantworten alle Antworten die Fragen ohne Bezahlung und bei dieser Arbeitsweise arbeitet keiner gerne für den Papierkorb, ich jedenfalls nicht.

GRuß Hajo

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige