Zellen beschreiben

Private Sub CommandButton2_Click() Dim kommt As String Dim geht As String Dim pause As String kommt = [TextBox1].Value geht = [TextBox2].Value pause = [TextBox3].Value Worksheets("Mosimann Stephan").Activate Range("D9").Select ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate Selection.Value = kommt Selection.Offset(0, 1).Value = geht Selection.Offset(0, 2).Value = pause End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim kommt As String Dim geht As String Dim pause As String kommt = [TextBox1].Value geht = [TextBox2].Value pause = [TextBox3].Value Worksheets("Mosimann Stephan").Activate Range("D9").Select 'Anstelle von 'ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate 'verwendest du ActiveSheet.Cells(Cells(65536, 4).End(xlUp).Row + 1, 4).Select Selection.Value = kommt Selection.Offset(0, 1).Value = geht Selection.Offset(0, 2).Value = pause End Sub

Hallo
ich habe keine Ahnung wie dein Formular aufgebaut ist
ich weiss nicht ob da überhaupt ein Datumsfeld drin steht
Ich weiss nicht wie deine Tabelle aufgebaut ist und in welcher Zeile das Datum steht
Stehen die Daten in einem geschlossenen Bereich oder stehen unterhalb dieser Daten nochmals Daten. Mit dem Autofilter filterst du ja nur einen zusammenhängenden Bereich da können unterhalb noch andere Daten stehen.
Und wenn du schon schwierigkeiten hast die Cells-Anweisung auf die richtige Spalte zu adressieren, bringt es auch nichts wenn ich dir einen code schreibe, denn den müsstest du auf jeden Fall anpassen, denn der wäre dann nur allgemein gehalten.
Den einzigen Ausweg, auf die schnelle, sehe ich in folgender Anweisung:

Private Sub CommandButton2_Click()
Dim lCell As String, c As Range
Dim kommt As String
Dim geht As String
Dim pause As String
kommt = [TextBox1].Value
geht = [TextBox2].Value
pause = [TextBox3].Value
Worksheets("Mosimann Stephan").Activate
Range("D9").Select
'Anstelle von
'A1 verwendest du die erste Zelle links oben wo dein Datenbereich beginnt
'verwendest du
'Sucht nur den sichtbaren gefilterten Bereich ab
Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible).Select
For Each c In Selection
lCell = c.Address
Next
'Wählt die letzte Zelle im gefilterten Bereich
Range(Range(lCell).Row, 4).Select
'------
Selection.Value = kommt
Selection.Offset(0, 1).Value = geht
Selection.Offset(0, 2).Value = pause
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread