Hilfe bei Autofilter-Methode
02.11.2005 11:13:27
Hansy
Ich habe hier eine Tabelle mit ca. 10.000 Datensätzen. in Spalte B steht ein Name und in Spalte G steht der Behandler.
Nun soll folgendes geschehen:
Der Autofilter wählt in Spalte G Zeile 1 den Behandler "MOL" aus und alle Einträge, die dann angezeigt werden, sollen in Spalte I ab Zeile 2 einen Platzhalter (z.b. "gg") erhalten. Ich hatte mir folgendes überlegt:
Sub hotline()
Dim bereich As Range
Dim s As String
If Not ActiveSheet.AutoFilterMode = True _
Then Range("A1").AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="MOL"
s = InputBox _
("Geben Sie einen Platzhalter ein", _
"Platzhalter")
If s = "" Then Exit Sub
'hier fehlt der Rest des Quellcodes in dem der Platzhalter eingetragen wird
End Sub
Egal was ich versuche, es treten immer Fehlermeldungen auf. Kann jemand den Quellcode so ergänzen, dass die Platzhalter eingefügt werden? Das wäre super nett!
Gruß, Hansy