Hi VBA Profis. Habe im Forum immer eine excellente Hilfe erhalten. Danke dafür.
Problemlösung als VBA gesucht:
Mappe hat 54 Tabelenblätter. 1. Tab.blatt "KdKwÜbersicht und 53 Tab.blätter für jede Kalenderwoche, "KW01 bis KW53".
Lösung gesucht für:
1. Sheet ,"KdKwÜbersicht", soll in SPALTE B, ab B5, alle Namen aus den Tabellen KW01 bis KW 53, Bereich F5 bis N500, die Namen untereinander einfügen (OHNE Dubletten). In den Tab. KW01 bis KW 53 stehen Namen (manchmal auch KEINE) in dem Bereich F5 bis N500).
In Tab. "KdKwÜbersicht, Spalte B sollen bereits vorhandene Namen nicht überschrieben werden.
Der Makroaufruf erfolgt per Doppellklick in Tab. "KdKwÜbersicht", Spalte B. Diesen Doppelklick habe ich schon fertig:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B5:B5000")) Is Nothing Then
MsgBox "Hier muss der Makroaufruf rein", vbkonly, "MxInfo" 'Makroaufruf
End If
End Sub
Eine VBA Lösung würde mir sehr helfen.
Danke für's drum kümnmern.
Mit Gruß dieter(drummer)