---

Hi Excelboard

Über diesen Code führe ich einen Datenauszug über den Autofilter herbei; das funktioniert auch sehr gut.
_________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C4" Then Exit Sub

Worksheets("Gesamtdaten").Rows(1).AutoFilter Field:=1, _
Criteria1:=Range("C4").Value

    Dim lngFilterRow As Long, lngFilterColumn As Long
    Dim lngFilter As Long
      With Worksheets("Gesamtdaten")
        If .AutoFilterMode Then
            If .FilterMode Then
                With .AutoFilter
                    lngFilterRow = .Range.Row
                    lngFilterColumn = .Range.Column
                    With .Filters
                        For lngFilter = 1 To .Count
                            If .Item(lngFilter).On Then Exit For
                        Next
                    End With
                End With
                .Range(.Range(.Cells(lngFilterRow + 1, lngFilterColumn), _
                    .Cells(lngFilterRow + 1, lngFilterColumn + .AutoFilter.Filters.Count - 1)), _
                    .Cells(lngFilterRow, lngFilter).End(xlDown)).Copy _
                    Worksheets("Datenauszug").Range("A2")
            Else
                MsgBox "Der Autofilter ist nicht gesetzt.", 48, "Hinweis"
            End If
        Else
            MsgBox "Kein Autofilter in der Tabelle.", 48, "Hinweis"
        End If
    End With
End Sub
_________________________________________________________________
Was ich jetzt noch gerne hätte wäre das die Ausgabeseite "Datenauszug" vor dem Befüllen mit Daten erst noch gelöscht wird.
Hintergrund: Beim Ändern des Filters werden die Daten in die Datenausgabe geschrieben und bei unterschiedlicher Anzahl von Datensätzen bleiben halt noch welche übrig!

Der Makrorecorder gibt mir dies aus; aber ich schaffe es nicht den in den Code zu bringen:
_________________________________________________________________
Sheets("Datenauszug").Select
    Range("A2:AS2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A2").Select
_________________________________________________________________

Wie bringe ich den Code dazu die Tabelle "Datenauszug" vorher zu löschen?

Danke und schon mal ein schönes Wochenende

Grüße Wolfgang

Ach ja - den Code hab ich teilweise im Internet gefunden und nicht selber fabriziert! (bin halt noch nicht so gut - aber bald!)

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach,

schnell und schmutzig - Bereich anpassen oder großzügig wählen:

Code:

---

Sheets("Datenauszug").Range("A1:C7").ClearContents

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie wär's mit:

Code:

---

Worksheets("Datenauszug").Delete

---

Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

am schnellsten so:

Code:

---

Worksheets("Datenauszug").UsedRange.Offset(1).Value2 = Empty

---

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi - hoffe ihr hattet ein schönes Wochenende!?

Besten Dank für eure Rückmeldungen; werde diese heute ausprobieren.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP