Bezugsnamen in VBA

Hallo zusammen,
ich habe folgendes Problem :
Ich will in meiner Tabelle Bezugsnamen zuordnen. Diese Zuordnung soll nicht über die Excel Menue- Leiste gehen, sondern mit Hilfe eines VBA- Codes. Allerdings bin ich ziemlich hilfslos, denn ich kann kein VBA- Code.
Der VBA- Code soll folgendermaßen funktionieren.
1. Suche in Tabelle Spalte A nach dem Namen ("A")
2. Suche in Tabelle Spalte A nach dem Namen ("A_End")
3. Markiere zwischen diesen beiden Bereichen (A-A_End) die Zellen
4. Spalte +1, sodass jetzt nicht Spalte A, sondern Spalte B (zwischen diesen Bereichen A bis A_End)markiert ist
5. Zuordnung des Markierten Bereiches zu einem Namen (Bsp. A)
Nr. 1 und Nr. 2 habe ich mit Hilfe der Makroaufzeichnung herausbekommen :
Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlValues, LookAt:= _xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _True).Activate
A_End entsprechend (cells.Find(What:="A_End"...)
Nun weiß ich nicht, wie ich den Zellbereich zwischen diesen beiden Zellen markieren kann (3.) und wie ich dann von da aus eine spalte nach rechts (Springen kann) und diese Zeilen markieren kann.
Nr.4 kann ich wieder mit der Makroaufzeichnung erreichen :
ActiveWorkbook.Names.Add Name:="A", RefersToR1C1:="=BEREICH"
Hoffentlich kann mir jemand helfen. Falls etwas unklar ist, bitte kurz benachrichtigen.
Besten Dank schonmal im Vorraus
Gruss
Denis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NeuerName() Dim fnd As Variant Dim lngStart As Long Dim lngEnd As Long With Worksheets("Tabelle1") Set fnd = .Columns(1).Find("A", LookAt:=xlWhole) If Not fnd Is Nothing Then lngStart = fnd.Row Set fnd = .Columns(1).Find("A_End", LookAt:=xlWhole) If Not fnd Is Nothing Then lngEnd = fnd.Row On Error GoTo ErrorHandler ActiveWorkbook.Names.Add "Test", .Range("B" & lngStart & ":B" & lngEnd) End With Exit Sub ErrorHandler: MsgBox "Eintrag für Start bzw. Ende nicht gefunden" End Sub

Sub Makro1() unter_a_end = Range("A").Row + Range("A").Rows.Count b_anf = Range("B").Row a_col = Range("A").Column b_col = Range("B").Column Range(Cells(unter_a_end, a_col + 1), Cells(b_anf - 1, b_col + 1)).Select End Sub

Sub Makro1() Dim rng As Range a_end = Range("A").Row + Range("A").Rows.Count b_anf = Range("B").Row a_col = Range("A").Column b_col = Range("B").Column Set rng = Range(Cells(a_end, a_col + 1), Cells(b_anf - 1, b_col + 1)) For Each zelle In rng 'tue die und jenes mit jeder zelle des bereiches Next End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bezugsnamen in VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread