Suche Datum aus TextBox mit export

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub kopieren() With Sheets("WE-Scan") LastRowSource = .Cells(Rows.Count, 5).End(xlUp).Row For i = 1 To LastRowSource If .Cells(i, 5) = TextBox_Datum Then .Rows(i).Copy With Sheets("Tabelle1") For x = 1 To 1000 If .Cells(x, 5) = "" Then Sheets("Tabelle1").Rows(x).PasteSpecial xlPasteValues Exit For End If Next x End With End If Next i End With End Sub

Hallo Andre,
so besser?

Option Explicit

Private Sub CommandButton_abbrechen_Click()

    Call Unload(Object:=Me)

End Sub

Private Sub CommandButton_Senden_Click()

    Dim strDate As String

    If IsDate(TextBox_Datum.Text) Then

        strDate = Replace(Format$(TextBox_Datum.Text, "mm.dd.yyyy"), ".", "/")

        Worksheets("Tabelle1").Cells.ClearContents

        With Worksheets("WE-Scan")

            Call .Rows(1).AutoFilter(Field:=5, Operator:= _
                xlFilterValues, Criteria2:=Array(2, strDate))

            Call .AutoFilter.Range.Copy

            Call Worksheets("Tabelle1").Cells(1, 1).PasteSpecial(Paste:=xlPasteValues)

            Call .Rows(1).AutoFilter

        End With
    Else
        Call MsgBox("Bitte ein gültiges Datum eingeben.", vbExclamation, "Hinweis")
    End If

    Call Unload(Object:=Me)

End Sub

Private Sub SpinButton1_SpinDown()

    TextBox_Datum.Text = CStr(CDate(TextBox_Datum.Text) - 1)

End Sub

Private Sub SpinButton1_SpinUp()

    TextBox_Datum.Text = CStr(CDate(TextBox_Datum.Text) - 1)

End Sub

Private Sub UserForm_Initialize()

    TextBox_Datum.Text = Date

End Sub

Gruß
Nepumuk

Hallo Nepumuk,
ich habe mit Hilfe eines noch gefundenen Codes und Teilen Deines Codes die Lösung gefunden.
Er sieht so aus:

Private Sub CommandButton_Senden_Click()
Dim myRange As Range
Dim strAddress As String
Dim lngCounter As Long
Dim strDate As String
If IsDate(TextBox_Datum.Text) Then
strDate = Replace(Format$(TextBox_Datum.Text, "mm.dd.yyyy"), ".", "/")
strDate = TextBox_Datum
End If
Set myRange = Worksheets("WE-Scan").Columns(5).Find(What:=TextBox_Datum, After:=Worksheets(" _
WE-Scan").Cells(Rows.Count, 5), LookAt:=xlWhole)
If Not myRange Is Nothing Then
strAddress = myRange.Address
Do
lngCounter = lngCounter + 1
With Worksheets("Tabelle1")
.Range(.Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 1), .Cells(.Cells(Rows. _
Count, 4).End(xlUp).Row + 1, 256)) = Worksheets("WE-Scan").Range(Worksheets("WE-Scan").Cells(myRange.Row, 1), Worksheets("WE-Scan").Cells(myRange.Row, 256)).Value
End With
Set myRange = Worksheets("WE-Scan").Columns(5).FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address  strAddress
MsgBox CStr(lngCounter) & " Zeilen kopiert.", 64, "Information"
Else
MsgBox "Keine Daten zum kopieren gefunden.", 48, "Hinweis"
End If
'Sheets("Tabelle1").Select
'Sheets("Tabelle1").Copy
'ActiveWorkbook.SaveAs Filename:= _
'    "C:\Users\Vertriebsleitung\Documents\WE_" & TextBox_Datum.Value & ".xlsx", FileFormat:= _
_
'    xlOpenXMLWorkbook, CreateBackup:=False
'ActiveWindow.Close
End Sub

Ich möchte jetzt nur noch, dass vor dem Kopieren vom Blatt "WE-Scan" zu "Tabelle1" in Tabelle 1 ab Zeile 2 der Inhalt vorher gelöscht wird.
Habe es mit Rows("2:65536").ClearContents versucht, bekomme entweder ne Fehlermeldung oder es passiert nichts. Vermutlich an der falschen Stelle eingefügt. Kannst Du mir dabei noch helfen?

Beliebteste Forumthreads (12 Monate)

Suche Datum aus TextBox mit export

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche Datum aus TextBox mit export

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread