Thema Datum  Von Nutzer Rating
Antwort
20.10.2020 12:31:55 Klaus
NotSolved
Blau Änderung in Zelle Userformular aktivieren
20.10.2020 13:15:06 Gast71132
****
NotSolved
22.10.2020 15:08:50 Klaus
Solved

Ansicht des Beitrags:
Von:
Gast71132		 Datum:
20.10.2020 13:15:06		 Views:
631		 Rating:
     
Antwort:
  Ja
Thema:
Änderung in Zelle Userformular aktivieren

Hallo

 

dieser Code gehört in das Tabellenblatt wo es stattfinden soll

per Doppelklick auf eine Zelle in Spalte C öffnet sich die Userform

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Columns(3)) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

 

dieser code gehört hinter den Commandbutton auf der Userform zum Speichern

 

Private Sub CommandButton1_Click()
    If IsDate(txtAenderungsdatum.Value) Then
        ActiveCell.Value = CDate(txtAenderungsdatum.Value)
    Else
        MsgBox "Bitte gültiges Datum eingeben"
        Exit Sub
    End If
    ActiveCell.Offset(0, 1).Value = cmbMitarbeiter.Text
    ActiveCell.Offset(0, 2).Value = Now
End Sub

 

beachte bitte, dass ich die Textbox umbenannt habe da VBA ein "Ä" nicht als Sinnvoll erachtet ;-)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.10.2020 12:31:55 Klaus
NotSolved
Blau Änderung in Zelle Userformular aktivieren
20.10.2020 13:15:06 Gast71132
****
NotSolved
22.10.2020 15:08:50 Klaus
Solved