Spalten kopierne aus dynamischen Autofilter
12.03.2019 18:01:32
Peter
ich suche eine Lösung per VBA, um eine Tabelle dynamisch zu filtern und die Ergebnisse daraus zu kopieren. Ich habe allerdings in meinem Code eine Fehler, finde aber nicht den Grund, da ich auf dem Gebiet noch neu bin.
Ich definiere die Anzahl der verschiedenen Titel (z.B. 5)
Danach filtere ich von 1 bis 5.
Problem 1:
Excel markiert die gefilterten Zeilen und kopiert diese. Ich möchte gerne nur die Werte aus den Spalten E,F und G haben
Problem 2:
Beim 2ten Durchlauf hört er auf.
Ein weiterer Punkt, zudem ich in meinem Code noch nicht kam ist der Zielbereich. Dieser soll sich immer um 4 Spalten nach rechts verschieben. Also die Daten von Titel 1 ab Spalte H4 (also E soll in H kopiert werden, F in I, G in J), die von Titel 2 ab Spalte L4 (also E soll in L kopiert werden, F in M, G in N) usw.
Ich hoffe auf eure Hilfe und sage schon einmal vielen Danke
Hier noch mein Code
Function sortTitle()
Dim MaxNoOfTitle As Long
Dim currentTitle As Long
MaxNoOfTitle = Sheet1.Cells(1, 34).Value 'Maximum wird in der Zelle _
wiedergegeben z.b. 5
currentTitle = 1
For currentTitle = 1 To MaxNoOfTitle
Sheet3.Range("$A$1:$AG$154").AutoFilter Field:=33, Criteria1:=currentTitle
ActiveSheet.AutoFilter.Range.Offset(1).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Copy
Sheets("Title_Auswertung").Select
Range("H4").Select
ActiveSheet.Paste
Next currentTitle
End Function