SVerweis nach Autofilter

Hallo Zusammen,
big Problem. Ich habe zwei Tabellenblätter angelegt. Auf dem einen werden verschiedenen Tätigkeiten über ein Mitarbeiterkürzel angelegt und anschließend ein Filter darauf gesetzt. Auf dem zweiten Tabellenblatt sind dann die realen Namen einschließlich dem Kürzel gespeichert.
Die ersten 5 Zeilen auf dem Tätigkeitentabellenblatt sind für Überschriften etc., vorgesehen. anschließend wurde eine Zeilenfixierung vorgenommen. In der ersten Zeile (Spalten wurden miteinander verbunden) soll dann der ermittelte Mitarbeiternamen angezeigt werden. Die Verknüpfung habe ich mittels SVerweis hergestellt.
Dies funktioniert nur einmalig, weil sobald ich eine Selektion durchführe, stimmt ja mein Zeilenbezug nicht mehr (z.B. Werte steht in Zelle B3, nach Selektion ist erste Zelle B365).
Wie kann ich trotzdem den Namen anzeigen lassen bzw. kann ich nach der Selektion eine Neunummeriung der Zeilen erzwingen?
Danke vorab

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Tim,
noch ein kleiner Tip am Rande.
Es lohnt sich oft, mit Bereichsnamen zu arbeiten; das macht das Makro flexibler.
Wenn du beispielsweise im Makro die Zelle "U1" ansprichst, zwischenzeitlich aber eine zusätzliche Spalte eingefügt hast, stimmt dieser Bezug nicht mehr. Hast du aber für "U1" z.B. den Namen "Tab1_lS" definiert, greift das Makro immer auf die richtige Zelle zu. In obigem Beispiel also Zelle "V1". Generell solltest du dem eigentlichen Namen ein Kürzel voranstellen, das die Tabelle definiert. Das erleichtert die Übersicht und vermeidet Duplikate bei mehreren Tabellen mit Bereichsnamen in der gleichen Datei.
Hilfreich ist auch, rechts neben bzw. unter dem Datenbereich eine Spalte/Zeile mit blauem Hintergrund zu formatieren und die Breite/Höhe auf 1 bis 2 mm zu reduzieren. In deinem speziellen Fall würde das Makro dann wie folgt aussehen (Die Bereichsnamen stehen in Zelle "U1" bzw. "A1201" der blauen Spalte bzw. Zeile):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'löscht alle überflüssigen Zellen
Sheets("Tabelle1").Select
Tab1_lS = Range("Tab1_lS").Offset(0, 1).Address          ' Tab1_lS = Bereichsname
Tab1_lZ = Range("Tab1_lZ").Offset(1, 0).Address          ' Tab1_lZ = Bereichsname
Dim lS As String, lZ As String, Letzte As String
ActiveCell.SpecialCells(xlLastCell).Select
Letzte = ActiveCell.Offset(1, 1).Address
lS = Tab1_lS & ":" & Letzte & ""
lZ = Tab1_lZ & ":" & Letzte & ""
With ActiveSheet
.Range(lS).Delete
.Range(lZ).Delete
End With
Range("A1").Select
End Sub

Gruß, Rolf

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread