Text aus Textbox in Zelle schreiben klappt nicht
12.06.2015 08:50:48
Felix
ich habe folgenden Code geschrieben, der mit einer If-Schleife abfragt, ob in gewissen Zellen das Wort "Schachtmeister" steht, sofern das der Fall ist, soll der Text aus der Textbox in gewissen Zellen geschrieben werden. Selbiges Verfahren habe ich im Laufe meines VBA-Projektes schon mehrfach angewandt(dort funktionierte es einwandfrei). Dieses Mal passiert einfach nichts, also es taucht auch keine Fehlermeldung auf.
Der Code sieht wie folgt aus:
Private Sub Eintragen_Click() 'Eintragen ist der Name des Commandbuttons
Dim i As Integer
For i = 13 To 200
'/////Schachtmeister/////
If Cells(i, 2) = "Schachtmeister" Then
Cells(i, 4).Value = StundenlohnSchachtmeister.Text 'StundenlohnSchachtmeister ist die _
Bezeichnung der Textbox
Cells(i + 1, 4).Value = ZulageÜberstunden.Text
Cells(i + 2, 4).Value = ZulageNachtstunden.Text
Cells(i + 3, 4).Value = ZulageSonntagsstunden.Text
End If
Next
End Sub
Über Hilfe würde ich mich sehr freuen, da ich seit Stunden nicht weiterkomme :)
Liebe Grüße
Felix