Namensfelder;suchen und ersetzen; befüllen Spalten

Hallo liebe Community,
ich hätte 3 Anliegen mal an Euch wobei mir das erste sehr wichtig wäre; es geht um folgendes:
Namensfelder definieren
1. Ich möchte mir über ein ganzes Tabellenblatt Namen im Namensfeld vergeben, keine Bereiche, sondern jede Zelle soll einen Namen haben aufsteigend.
Bsp.: A1 soll Albert1 heißen, A2 dann Albert2,A20 dann Albert20, B1 dann Berta1 usw. das alles über alle Spalten und Zeilen
Im Makrorecorder habe ich folgenden Code aufgezeichnet:
ActiveWorkbook.Names.Add Name:="Albert1", RefersToR1C1:="=Tabelle1!R1C1"
Es geht aber auch:
ActiveSheet.Range("a1").Name = "Albert1"
oder
ThisWorkbook.Names.Add "Albert1", Tabelle1.Range("A1)
Nun habe ich gelesen das man statt Range auch Cells verwenden kann gerade wenn man Variable dafür einsetzen möchte.
ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersTo:="Tabelle1!=Cells(i, 1)"
(Zeile und Spalte)
Mein Problem ist nun das ich das mit der Schleife nicht hinbekomme, das er den zugefügten Namen halt Aufsteigend (A1 Albert1; A2 Albert2 usw.) für das Tabellenblatt anwendet für die Namensvergabe. Wichtig ist mir dabei das halt die Namen dann auch in der Zelle oben links stehen im Namensfeld in dem man sie auch manuell vergeben kann.
Es geht mir nicht um Bereiche oder eigetragene Werte an sich in den Zellen auf die man mit .Value zugreifen könnte, sondern rein um ein nichtbeschriebenes Blatt dem ich Namen vergeben möchte. Die dann im Namensfeld (Name Box) oben stehen für die jeweilige Zelle und mit ENTER bestätigt werden. Und das halt dann für alle Spalten und Zeilen, also Spalte G wäre dann Gerd 1, Gerd2 usw.
2. Als zweites möchte ich ein suchen und ersetzen Makro indem ich die Namen anpassen kann.
Also suche alle A1 und ersetze mir die durch Albert1. Dabei wäre es schön wenn mir Excel die Kommentare nicht ersetzen würde. Dabei stelle ich mir das so vor dass eine Msgbox aufgeht wo man eingeben kann Suche Buchstabe A1 (zum Beispiel) und ersetzen ihn mit Albert1, mit Ok bestätigen und dann sollten alle A1 in Modulen und der Arbeitsmappe umgeschrieben sein. Wichtig wäre da noch das er zwischen Groß-und Kleinschreibung unterscheidet.
3. Drittens noch eine Frage: Wenn man einen Bereich füllen lassen möchte und man möchte entscheiden welche Spalte gefühlt werden soll in seiner Tabelle mit der von einer anderen Tabelle wie macht man sowas?
Über Range bestimme ich den Bereich, aber wie frage ich die genauen Spalten ab?
Bsp.: eine Tabelle mit 4 Spalten die gefüllt sind existiert. Ich möchte nun in meiner Tabelle nur bestimmte ausgewählte Spalten gefüllt haben, dabei benötige ich aber nur Spalte 2 und Spalte 4 von der ersten Tabelle in die meine. In meiner Tabelle sollen aber keine Leerspalten entstehen also hintereinander sollen die befüllt werden. Wie setze ich das in einem Makro um? Dabei wäre es von Vorteil wenn eine Abfrage käme, welche Spalten wollen sie füllen und man diese auswählen kann. Schön wäre auch wenn er die Spaltenbreite automaitsch noch anpassen würde, also das der Doppelklick auf die Spalte entfällt damit sie breiter wird und sich anpasst.
Das würde mich generell interessieren wie man die Spaltenbreite per Makro anpasst das diese ##### weggehen.
Bsp.: Ich möchte Spalte 1 bei mir mit Spalte 2 der vorgegebenen Tabelle befüllen. Ein Auswahlfenster erscheint wo ich eingeben kann.Sinngemäß, nimm spalte 2 von der ersten Tabelle und fülle dies in Spalte 1 meiner Tabelle. Der Fülplbereich dabei sollte variabel gehalten sein, da er sich von Zeit zu Zeit ändert (also mehr Zeilen übertragen werden dann)
Hoffe jemand kann mir da weiterhelfen.
Gruß
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim i As Long Dim j As Integer For j = 1 To 2 For i = 1 To 1000 Select Case j Case 1: ActiveWorkbook.Names.Add Name:="Albert" & i, RefersToR1C1:="=Tabelle1!R" & i & " _ C" & j Case 2: ActiveWorkbook.Names.Add Name:="Berta" & i, RefersToR1C1:="=Tabelle1!R" & i & "C" _ & j Case Else MsgBox "nicht definert" End Select Next i Next j End Sub

Sub namenVergeben() Dim i As Long Dim j As Integer ' Zieltabelle Definiern Dim strTabelle As String strTabelle = "Tabelle5" ' Spalten For j = 1 To 100 ' Spaltennamen aus Liste auslesen Dim strName As String strName = getName(j) If strName = "out of Range" Then MsgBox "Es sind nur Namen für " & j - 1 & " Spalten definiert" Exit Sub End If ' Zeilen For i = 1 To 20 ' Namen hinzufügen ThisWorkbook.Worksheets(strTabelle).Names.Add Name:=strName & i, _ RefersToR1C1:="=" & strTabelle & "!R" & i & "C" & j ' Namen zu Testzwecken in die Zielzelle schreiben ThisWorkbook.Worksheets(strTabelle).Cells(i, j).Value = strName & i Next i Next j End Sub Private Function getName(ByVal i As Long) ' Namensliste in 'Tabelle2' Spalte A (mit Überschrift in A1) With ThisWorkbook.Worksheets("Tabelle2") Dim rngListe As Variant With .Cells(1, 1).CurrentRegion rngListe = .Resize(.Rows.Count - 1, 1).Offset(1) End With If i >= LBound(rngListe) And i

Nachtrag:
Ich habe jetzt mal den Spaltennamen Rey durch Rosalinde ersetzt und nun läuft er durch bei 20 Zeilen. :)
Auch bei 1000 Zeilen funktioniert es nun und wenn er durchläuft dann werden auch die Namen korrekt im Namensfenster angezeigt, wenn man die entsprechende Spalte oder Zeile anklickt, das geht also auch, wenn er mal richtig durchläuft. 
Bei 3000 Zeilen (was in etwa mein Ziel war) ging er jedoch nur noch bis U mit und dann noch ca.2400 V und für W,X,Y,Z,AA jeweils noch die hundert hat er umbenannt, doch dann kam wieder dieser Laufzeitfehler 1004.
Habe das dann für die Select-Case-Funktion auch mal probiert und den Namen für die Spalte R auf Rosalinde ersetzt und dort geht er bis Spalte Y und ab Spalte Z streikt er bei 1000 Zeilen Vorgabe.
Nun habe ich mir folgendes überlegt, ich lösche alle Namen in der Namensliste in Spalte V nochmal (da nicht vollständig umbenannt), lösche in der Namensliste die Namen die er schon benannt hat und starte nochmal, doch da streikt er, wahrscheinlich wegen der ganzen Leerzeilen in meiner Namensliste dazwischen. Schreibe ich aber in Zelle A2 (A1 ist ja die Überschrift) die Namen für die Spalten V bis AA ein, dann macht er das zwar (ohne Leerzeilen in der Namensliste nun); habe es in ein neues Tabellenblatt geschrieben), aber alle Namen mit V stehen dann in der Spalte A statt Spalte V (er erkannte ja die Leerzeilen in meiner Namensliste nicht). Dort springt er im Debugger zu folgender gelb markierter Zeile in der get-Name Funktion:
rngListe = .Resize(.Rows.Count - 1, 1).Offset(1)
Nun denke ich man könnte diesen Laufzeitfehler beheben, indem man eine Auswahl treffen kann welche Spalte befüllt werden soll mit der Namensliste, also das ich zum Beispiel für den Namen Vera nun die Spalte V auswählen kann und wie viel Zeilen. Das würde meinen Punkt 3 Befüllen von Bereichen in Spalten, also wie man Spalten anspricht um sie zu befüllen und auszuwählen zu können auch entgegenkommen.
Quasi das ein Fenster aufgeht und abfragt:, welche Spalte wollen sie befüllen mit wie viel Zeilen und ich dann den Namen Vera für Spalte V wähle und die Zeilenanzahl angeben kann. Dann könnte ich das Stück für Stück erweitern ohne das dieser Laufzeitfehler wiederkommt für die letzten Spalten V bis AA, denn mit den Leerzeilen in meiner Namensliste geht es wie gesagt nicht und wenn ich sie ohne Leerzeilen aufschreibe und das Vera in Zelle A2 schreibe (also an den Anfang der Namensliste), dann tut er diese nicht in Spalte V umbenennen sondern in Spalte A, so dass dann in ZelleA1 der Name Vera1 steht was ich aber nicht möchte, sondern in Zelle V1 soll der Name Vera1 dann stehen.
Gruß
Markus

Beliebteste Forumthreads (12 Monate)

Namensfelder;suchen und ersetzen; befüllen Spalten

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Namensfelder;suchen und ersetzen; befüllen Spalten

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread