Thema Datum  Von Nutzer Rating
Antwort
26.02.2021 11:57:13 Klaus
NotSolved
26.02.2021 12:47:09 UweD
NotSolved
26.02.2021 13:00:11 Klaus
NotSolved
Blau Userform und Matrix
 26.02.2021 13:01:55 Werner
NotSolved
26.02.2021 19:40:31 Klaus
NotSolved
26.02.2021 19:50:57 Werner
*****
Solved
26.02.2021 19:55:35 Klaus
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
26.02.2021 13:01:55		 Views:
508		 Rating:
     
Antwort:
  Ja
Thema:
Userform und Matrix

Hallo,

zum Beispiel so:

Private Sub CommandButton1_Click()
Dim raMonat As Range, raJahr As Range
Dim loSpalte As Long, loZeile As Long

If Me.ComboBox1 <> "" Then
    If Me.TextBox1 <> "" Then
        If IsNumeric(Me.TextBox1) Then
            Set raMonat = Rows(2).Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
            If Not raMonat Is Nothing Then
                loSpalte = raMonat.Column
            Else
                MsgBox "Fehler: Der Monat " & Me.ComboBox1 & " wurde nicht gefunden."
                Exit Sub
            End If
            Set raJahr = Columns("F").Find(what:=Year(Date), LookIn:=xlValues, lookat:=xlWhole)
            If Not raJahr Is Nothing Then
                loZeile = raJahr.Row
            Else
                MsgBox "Fehler: Das Jahr " & Year(Date) & " wurde nicht gefunden."
                Exit Sub
            End If
            Cells(loZeile, loSpalte) = CDbl(Me.TextBox1)
        Else
            MsgBox "Fehler: Der eingetragene Wert ist nicht numerisch."
            Exit Sub
        End If
    End If
Else
    MsgBox "Fehler: Bitte einen Monat auswählen."
End If

Set raMonat = Nothing: Set raJahr = Nothing
End Sub

Ich bin mal davon ausgegangen, dass die Zeiten in deiner Textbox in dezimaler Schreibweise eingegeben werden und nicht im Uhrzeitformat.

 

Gruß Werner

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
26.02.2021 11:57:13 Klaus
NotSolved
26.02.2021 12:47:09 UweD
NotSolved
26.02.2021 13:00:11 Klaus
NotSolved
Blau Userform und Matrix
 26.02.2021 13:01:55 Werner
NotSolved
26.02.2021 19:40:31 Klaus
NotSolved
26.02.2021 19:50:57 Werner
*****
Solved
26.02.2021 19:55:35 Klaus
NotSolved