Spaltenbereiche definieren, gem. Zeile 1
01.03.2008 10:46:35
Peter
Ich habe eine Tabelle, in die ich immer wieder unterschiedliche Daten hineinkopiere. Nun möchte ich jeweils in Zeile 1 in verschiedenen Spalten eine Bezeichnung eingeben. Beim Verlassen der Tabelle sollte dann die entsprechenden Spalten ab Zeile 2 bis zum Ende der Einträge, der aus Spalte B ermittelt wird, den Bereichsnamen erhalten, der in Zeile 1 steht.
Mir ist nicht klar, wie die Schlaufe aussieht, damit alle Spalten mit einem Eintrag in Spalte 1 auch den entsprechenden Namen erhalten.
Danke für ein Feedback.
Peter
Sub worksheet_deactivate()
Dim lngSpa As Long, lngAnf As Long, lngEnd As Long
Dim Bereich As Range
lngAnf = 2 'Bereiche beginnen bei Zeile 2
lngSpa = 2 'Spalte B ist relevant zur Bestimmung der letzten Zeile
lngEnd = Sheets("AX").Cells(65536, lngSpa).End(xlUp).Row 'ermittelt letzten Eintrag _
in Spalte B
Set Bereich = Worksheets("CW").Range("A" & lngAnf, "A" & lngEnd)
ActiveWorkbook.Names.Add _
Name:="ABC", _
RefersTo:=Bereich, Visible:=True
End Sub