Office: Datum vergleichen/Tabelle auslesen

Haisi · 8. September 2014

Also das mit den Gruppen habe ich verstanden und klappt auch jetzt soweit ganz gut. der Code sicht so aus:

Code:

Private Sub CommandButton1_Click()

Dim dteDatum1 As Date
Dim dteDatum2 As Date
Dim dteDatum3 As Date
Dim dteDatum4 As Date

dteDatum1 = CDate(TextBox1.Value)
dteDatum2 = CDate(TextBox2.Value)
dteDatum3 = CDate(TextBox3.Value)
dteDatum4 = CDate(TextBox4.Value)

Dim x As Double
Dim y As Double

If OptionButton1 = True Then
x = 2
If OptionButton2 = True Then
x = 3
If OptionButton3 = True Then
x = 4
End If
End If
End If

If OptionButton4 = True Then
y = 2
If OptionButton5 = True Then
y = 3
If OptionButton6 = True Then
y = 4
End If
End If
End If
Worksheet("Daten").Cells(x, y).Select
'MsgBox "Zelle:" & x & "," & y
MsgBox "Der Wert ist" & Worksheet("Daten").Cells(x, y)

'Dim a As Double
'dteDatum = dteDatum + a
'a = Cells(h,v)
'TextBox3.Text = Format(dteDatum, "dd/mm/yy")

If dteDatum1 = dteDatum2 Then
Image1.Visible = True
Image2.Visible = False
Else:
Image1.Visible = False
Image2.Visible = True
End If

If dteDatum3 = dteDatum4 Then
Image3.Visible = True
Image4.Visible = False
Else:
Image3.Visible = False
Image4.Visible = True
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings erhalte ich bei dem rot geschriebenen Text immer wieder unterschiedliche Fehlermeldungen. zB.: Run-Time Error 438: Objekt does not support this property or method

komisch ist das es ein oder zweimal geklappt hat und ich habe auch die richtigen Werte ausgegeben bekommen.

Vielen Dank!!!

Beverly · 8. September 2014

Lade deine Mappe hoch, damit man es sich ansehen kann.

Haisi · 9. September 2014

Danke fuer deine Geduld!

Folgendes ich habe jetzt soweit alles ganz gut hinbekommen. Klar da gibt es noch einiges Potenzial aber es funktioniert und das ist erstmal das wichtiste.

Nun stehte ich vor folgendem Problem. Also ich habe jetzt dieses UserForm1 und allse mein Programm ablaufen und es klappt auch alles ganz gut aber wie bekomme ich das aufs Papier.
Bei all den anderen Sachen konnte ich mir noch irgendwie mit logischem Denken und C++ Kentnissen irgendwie selbst helfen aber hier hab ich jetzt nich mal irgendeinen Ansatzpunkt.

Ich hab dafuer schon mal den Print Button eingebaut.
Ich stelle mir das naemlich so vor: Der Anwender oeffnet die Mappe und sieht diese UserForm dann einmal das Programm laufen lassen und zum Schluss drueckt er auf Print. Daraufhin kommt die Ausgedruckte Userform aus dem Drucker. Irgendwie so sollte das Ablaufen

Vielen vielen Dank

Haisi · 10. September 2014

Ein wenig Hilfe waere top!

Danke

P.S.: Mappe ist im vorherigen Post

Beverly · 10. September 2014

Ein UserForm kann mit dem Befehl Me.PrintForm gedruckt werden.

Office: Datum vergleichen/Tabelle auslesen

Datum vergleichen/Tabelle auslesen

Datum vergleichen/Tabelle auslesen

Datum vergleichen/Tabelle auslesen

Datum vergleichen/Tabelle auslesen - Similar Threads - Datum vergleichen Tabelle

VBA Datum vergleichen

Datum mit Datum vergleichen

Bedingte Formatierung Datumswerte vergleichen mit heutigem Datum

Excel VBA Datum vergleichen

Datum+Uhrzeit in Excel vergleichen und einfärben

Vergleich Funktion mit Datum

SVERWEIS mit Datum und Zeit