title image


Smiley Je nachdem wie Du Deine Steuerelemente im UserForm genannt hast, sollte....
...Dir ein Code dieser Art weiterhelfen :





Private Sub CMDReset_Click()

    TextDatum = ""

    TextOrt = ""

    TextAufgabe = ""

    TextIntervall = ""

    CheckBoxTermin = False

    TextDatum.SetFocus

End Sub



Private Sub CMDSpeichern_Click()

    nz = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count 'Neue Zeile

    If CheckBoxTermin = False Then

        ActiveSheet.Cells(nz, "A") = TextDatum

    Else

        ActiveSheet.Cells(nz, "D") = TextDatum

    End If

    ActiveSheet.Cells(nz, "B") = TextOrt

    ActiveSheet.Cells(nz, "C") = TextAufgabe

    ActiveSheet.Cells(nz, "E") = TextIntervall

End Sub



Code eingefügt mit Syntaxhighlighter 4.0



Ich denke mal, die Bezeichnugen in meinem Code sind klar verständlich, oder ?

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: