AW: Gleiches Kopieren
20.11.2008 16:08:00
Tino
Hallo,
soweit habe ich dies auch verstanden, aber die Frage von mir ist immer noch nicht beantwortet.
"Nun gibt es ca. 20 verschiedene Konten in Spalte C"
Wie soll bestimmt werden, welches von diesen 20 Konten in die nächste Tabelle gefiltert werden soll.
Über eine Kombinationsfeld oder Inputbox?
Hier mal ein Beispiel mit InputBox
Option Explicit
Sub Makro1()
Dim Bereich As Range, ErgBereich As Range
Dim Konto As String
Konto = InputBox("Kontoname Eingeben")
With Application
.ScreenUpdating = False
With Tabelle1
Set Bereich = .Range("C1", .Cells(.UsedRange(.UsedRange.Cells.Count).Row, 3))
Set ErgBereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
ErgBereich.FormulaR1C1 = "=IF(RC3=" & Konto & ",TRUE,"""")"
End With
If Application.WorksheetFunction.CountIf(ErgBereich, True) <> 0 Then
Set Bereich = ErgBereich.SpecialCells(xlCellTypeFormulas, 4).EntireRow
Bereich.Copy
Tabelle2.Range("A2").PasteSpecial
Else
MsgBox "Dieses Konto gibt es nicht!", vbCritical
End If
.CutCopyMode = False
ErgBereich.Clear
.ScreenUpdating = True
End With
End Sub
Gruß Tino