anstatt neue Mappe, in besteh. Mappe einfügen
03.06.2006 14:40:21
Wolfgang
mit untenstehendem Code wird erreicht, dass gefilterte Daten in eine neue Arbeitsmappe kopiert werden. Was muß ich verändern, wenn ich die Daten in ein Tabellenblatt innerhalb der geöffneten Arbeitsmappe - Blattname "Übersicht" hineinkopiert haben möchte? (Habe mir als Laie bereits die Zähne daran ausgebissen); Danke schon jetzt Allen für die Hilfestellung.
Herzliche Grüße
Wolfgang
Sub Serienbrief()
' Variablendeklaration
Dim intCounter As Integer
Dim shSource As Worksheet
Dim lngRow As Long
Dim wb As Workbook
Dim sport As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
' Objektvariable für aktives Blatt festlegen
Set shSource = ActiveSheet
' Schleife über 5 TextBoxes
For intCounter = 1 To 14
'Wenn eine Auswahl erfolgte, dann
If Controls("cbbKriterium" & intCounter).ListIndex <> -1 Then
If intCounter = 3 Then
Range("A1").AutoFilter Field:=intCounter, _
Criteria1:=CDate(Controls("cbbKriterium" & intCounter).Value)
Else
Range("A1").AutoFilter Field:=intCounter, _
Criteria1:=Controls("cbbKriterium" & intCounter).Value
End If
End If
Next intCounter
' Alle sichtbaren Zellen kopieren
Range("A1").CurrentRegion.Copy
' Neues Arbeitsblatt hinzufügen
Set wb = Workbooks.Add(1)
ActiveSheet.Paste
' Autofilter ausschalten
shSource.Range("A1").AutoFilter
' Kopiermodus ausschaltern
Application.CutCopyMode = False
' Zwischenspeicher einfügen
' Zelle A1 auswählen
Range("A1").Select
wb.Activate
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub