Aktuelles Datum bei Textbox2 auswählen

Guten Abend zusammen,
ich stehe wieder vor einer kleinen Herausforderung:
Ich habe eine Userform mit 2 Textboxen und einem commandbutton
mein Code lautet folgend:
Private Sub CommandButton1_Click()
Dim strSuch As String, raFund As Range
strSuch = Me.TextBox1
If Len(Me.TextBox1) > 0 Then
Set raFund = Worksheets("Shelf-ACT").Range("A:A").Find(strSuch, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(, 12) = Me.TextBox2
Else
MsgBox "Suchbegriff " & Me.TextBox1 & " in Spalte A nicht vorhanden."
End If
End If
Nun mein vorhaben:
Wenn ich in Textbox1 nach einem Inhalt in A:A suche soll er automatisch in dem automatischen Datum die Zahl eintragen die ich in der Textbox2 hinterlege
Ich Screenshote mal eben den Datumsbereich also dort wo es ausgegeben werden muss:
https://bilderupload.org/bild/f90b56262-9-l-rvw0-smy3-sadqf-3
Es ist immer nur das aktuelle Datum für den jeweiligen Tag eingeblendet, die vergangenen Tage sind ausgeblendet.
Kann mir jemand sagen wie ich den Inhalt aus Textbox2 dann in der jeweiligen Datums Spalte ausgeben kann?
Liebe grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Const DATUM_ZEILE As Long = 1 Dim strSuch As String, raFund As Range, rngDateColumn As Range Set rngDateColumn = Rows(DATUM_ZEILE).Find(Date, LookIn:=xlFormulas, lookat:=xlWhole) If rngDateColumn Is Nothing Then MsgBox "Aktuelles Datum nicht gefunden" Exit Sub End If strSuch = Me.TextBox1 If Len(Me.TextBox1) > 0 Then Set raFund = Worksheets("Shelf-ACT").Range("A:A").Find(strSuch, LookIn:=xlValues, lookat:= _ xlWhole) If Not raFund Is Nothing Then Cells(raFund.Row, rngDateColumn.Column) = Me.TextBox2 Else MsgBox "Suchbegriff " & Me.TextBox1 & " in Spalte A nicht vorhanden." End If End If End Sub

Hi Steffen,
ich gehe davon aus, dass die Datümer in jedem Blatt in den selben Spalten stehen.
Wieder testen:


Private Sub CommandButton1_Click()
Const DATUM_ZEILE As Long = 1
Dim strSuch As String, raFund As Range, rngDateColumn As Range, wS As Worksheet, bolFound As Boolean
Set rngDateColumn = Worksheets("Shelf-ACT").Rows(DATUM_ZEILE).Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
If rngDateColumn Is Nothing Then
MsgBox "Aktuelles Datum nicht gefunden"
Exit Sub
End If
strSuch = Me.TextBox1
If Len(Me.TextBox1) > 0 Then
For Each wS In ThisWorkbook.Worksheets
Set raFund = wS.Range("A:A").Find(strSuch, LookIn:=xlValues, lookat:= _
xlWhole)
If Not raFund Is Nothing Then
bolFound = True
wS.Cells(raFund.Row, rngDateColumn.Column) = Me.TextBox2
Exit Sub 'Falls der Suchbegriff öfter vorkommen kann, dann hier nicht aussteigen sondern: Set raFund = Nothing
End If
Next wS
If Not bolFound Then
MsgBox "Suchbegriff nicht gefunden"
End If
End If
End Sub

VG, Boris

Private Sub CommandButton1_Click() Const DATUM_ZEILE As Long = 1 Dim strSuch As String, raFund As Range, rngDateColumn As Range, wS As Worksheet, bolFound As Boolean Set rngDateColumn = Worksheets("Shelf-ACT").Rows(DATUM_ZEILE).Find(Date, LookIn:=xlFormulas, lookat:=xlWhole) If rngDateColumn Is Nothing Then MsgBox "Aktuelles Datum nicht gefunden" Exit Sub End If strSuch = Me.TextBox1 If Len(Me.TextBox1) > 0 Then For Each wS In ThisWorkbook.Worksheets Set raFund = wS.Range("A:A").Find(strSuch, LookIn:=xlValues, lookat:= _ xlWhole) If Not raFund Is Nothing Then bolFound = True wS.Cells(raFund.Row, rngDateColumn.Column) = wS.Cells(raFund.Row, rngDateColumn.Column) + Me.TextBox2 Exit Sub 'Falls der Suchbegriff öfter vorkommen kann, dann hier nicht aussteigen sondern: Set raFund = Nothing End If Next wS If Not bolFound Then MsgBox "Suchbegriff nicht gefunden" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Aktuelles Datum bei Textbox2 auswählen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aktuelles Datum bei Textbox2 auswählen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread