Suche in LIste
12.03.2013 12:29:21
Olaf
ich habe folgendes Skript (funktioniert noch nicht)
Sub Team_S()
Dim rngTargetCell As Range
intTEAM = Right(B2, 1)
Else
Sheets("Ref").Visible = True
Sheets("Ref").Select
Range("B38:B1200").Select
Selection.Copy
Sheets("Erfassung").Select
Range("X1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 1
'Sheets("Ref").Visible = False
Sheets("Erfassung").Select
Application.CutCopyMode = False
End If
End Sub
Meine Zielvorstellung ist, das ich mit den Wert aus B2 in eine Variable übergebe und im Blatt Ref in der Spalte D nur Einträge mit diesem Team filtere und anschließend kopiere ins blatt Erfassung.
Da meine VBA Kenntnisse leider "grottig" sind hoffe ich auf Eure Fachkompetenz.
Liebe Grüße
Olaf