Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Wertvergleich Textbox - Zelle

Betrifft: Wertvergleich Textbox - Zelle von: Andi
Geschrieben am: 17.08.2004 13:48:42

Hi,

habe ein Problem:
In Textbox4 wird das aktuelle Datum eingetragen(bzw. die TB ist damit vorbelegt).
Jetzt kommts: Ich möchte den Zellwert der darüberliegenden Zelle vergleichen, ob
der Inhalt das Datum von einem anderen Jahr ist(Bsp 03). Wenn ja, soll wieder ab 1 gezählt werden.
Hier mal mein bisheriger Code:

'Eintragen der Werte

Private Sub CommandButton1_Click()
On Error Resume Next
ErsteFreieA
z = ActiveCell.Row
If Cells(8, 3) <> "" Then
 
    Cells(z, 1).Value = TextBox1.Value
    Cells(z, 2).Value = TextBox2.Value
    Cells(z, 11).Value = TextBox3.Value
    
    'Erhöhung der Werte über St.zahl in Textbox
    Cells(z, 8).Value = Cells(z - 1, 8).Value + CDbl(TextBox2.Text)
    'Berechnung des ersten Wertes in Spalte D
    Cells(z, 4).Value = Cells(z - 1, 8).Value + 1
    
    'bleibt immer gleich
    Cells(z, 3).Value = Cells(z - 1, 3).Value 'für HR
    Cells(z, 5).Value = Cells(z - 1, 5).Value 'für /
    
    Cells(z, 6).Value = Format(Date, "yy")
    
    Cells(z, 7).Value = Cells(z - 1, 7).Value 'für -
    Cells(z, 9).Value = Cells(z - 1, 9).Value 'für /
    
    Cells(z, 10).Value = Format(Date, "yy")

Else
    Cells(8, 1).Value = TextBox1.Value
    Cells(8, 2).Value = TextBox2.Value
    Cells(8, 11).Value = TextBox3.Value

    Cells(8, 3).Value = "HR"
    Cells(8, 4).Value = "01"
    Cells(8, 5).Value = "/"
    Cells(8, 6).Value = Format(Date, "yy")
    Cells(8, 7).Value = "-"
    Cells(8, 8).Value = Cells(8, 8).Value + CDbl(TextBox2.Text)
    Cells(8, 9).Value = "/"
    Cells(8, 10).Value = Format(Date, "yy")

End If
'++++++++++ das läuft leider nicht... ++++++++++
'prüfen ob Jahr richtig --> wenn nicht dann wieder von 01 zählen
    If TextBox4.Value <> Cells(z - 1, 6).Value Then
        Cells(z, 3).Value = "HR"
        Cells(z, 4).Value = "01"
        Cells(z, 5).Value = "/"
        Cells(z, 6).Value = Format(Date, "yy")
        Cells(z, 7).Value = "-"
        Cells(z, 8).Value = Cells(8, 8).Value + CDbl(TextBox2.Text)
        Cells(z, 9).Value = "/"
        Cells(z, 10).Value = Format(Date, "yy")
    End If
End Sub


Vielleicht kann mir ja jemand helfen. Ein Tip wäre auch nicht schlecht.

Gruß Andi
  


Betrifft: AW: Wertvergleich Textbox - Zelle von: ChrisL
Geschrieben am: 17.08.2004 18:37:42

Hi Andi

Ziemlich wirr der Code, wenn man die Tabelle und Zusammenhang nicht kennt. Jedenfalls eine TextBox enthält immer ein "String", deshalb wandelst du diese (z.B. CDbl(TextBox2.Text)) vorgängig in eine Zahl um. Das gleiche musst du mit der TextBox, welche das Datum enthält tun, nämlich vorher von einem "String" in ein Datum umwandeln... CDate(TextBox4.Value)

Gruss
Chris


  


Betrifft: Danke... von: Andi
Geschrieben am: 18.08.2004 10:10:06

...jetzt läufts!!


 

Beiträge aus den Excel-Beispielen zum Thema "Wertvergleich Textbox - Zelle"