Anzeige
Archiv - Navigation
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filter

Filter
Hubert
Hallo Franz
Vielen Dank für Deine Bemühung.
Habe heute eine Lösung bekommen.
Siehe neues Makro.
Mein Fehler liegt wohl in der Formatierung.
MfG Hubert
Sub Zuanbaulist()
Dim Rng As Range
With Worksheets("Tabelle1")
.Unprotect
Set Rng = .Columns(1).Find(what:=Worksheets("Tabelle2").Range("A8"), lookat:=xlWhole,   _
_
LookIn:=xlFormulas)
If Rng Is Nothing Then
Beep
MsgBox "Eine Bearbeitung wurde nicht gefunden!", 64, "Infomeldung zur Bearbeitung"
Else
.Range("A1:P10000").AutoFilter Field:=1, Criteria1:=CStr(Worksheets("Tabelle2"). _
Range("A8"))
.Range("I2:P10000").Copy    'nicht zu vergessen das hier alle eigenschaften einer   _
_
zelle mitkopiert werden
End If
End With
.Protect
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Filter
17.09.2010 21:13:08
Hubert
sorry Beitrag am faschen Platz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige