Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1052to1056
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

Automatische Namensdefinition

Automatische Namensdefinition
25.02.2009 10:40:08
Nico
Moin
Ich bin auf der Suche nach einem Makro welches automatisch Namen definiert.
Erläuterung:
In Spalte H sind Firmen-Namen aufgelistet.
Als Beispiel möchte ich den Inhalt aus H2 als Namen für den Bereich I2:IV2 definieren lassen.
Das Makro sollte stoppen sobald in H kein Firmenname mehr steht.
Den Namen für H2 definiere ich mit
Name = Range("H2").Value
ActiveWorkbook.Names.Add Name:=Name, RefersToR1C1:= _
"=Tabelle1!R2C9:R2C256"
Ich weiß allerdings nicht, wie ich einen Loop von H2 bis zur ersten unbefüllten H-Zelle schreibe -.-"
Wäre super wenn mir da jemand helfen könnte.
Gruß
Nico

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Namensdefinition
25.02.2009 11:07:48
Luschi
Hallo Nico,
versuch es mal so:

Sub NamenErzeugen()
Dim ws As Worksheet, rg1 As Range, rg2 As Range, s As String
Set ws = ThisWorkbook.Worksheets("Tabelle1")
Set rg1 = ws.Range("H2:H100")
For Each rg2 In rg1
If "" = rg2.Value Then
'Schleifenende, wenn Zelle leer ist
Exit For
End If
s = rg2.Value
'alle Leerzeichen ersetzen
s = Replace(s, " ", "_", 1, -1, vbTextCompare)
ThisWorkbook.Names.Add Name:=s, RefersToR1C1:="=" & _
ws.Name & "!R" & rg2.Row & "C9:R" & rg2.Row & "C256"
Next rg2
Set rg1 = Nothing
Set rg2 = Nothing
Set ws = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Automatische Namensdefinition
25.02.2009 11:16:47
Nico
Luschi!
Du bist heut' mein persönlicher Held.
Vielen Dank! :D
Gruß
Nico

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige