Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namensmanager / Bereiche mit VBA benennen

Forumthread: Namensmanager / Bereiche mit VBA benennen

Namensmanager / Bereiche mit VBA benennen
27.12.2018 13:38:56
Micha
Hallo liebe Spezialisten.
Im Tabellenblatt sollen mittels VBA Bereichsnamen vergeben werden
In Spalte 4 steht der jeweilige Name. In den Spalten F:M ist der dazugehörige Bereich.
Der VBA Code soll die Namen/Bereiche von Zeile 7 bis Zeile 100 automatisch vergeben.
Hoffe sehr auf Eure Hilfe
Vielen Dank, Micha
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namensmanager / Bereiche mit VBA benennen
27.12.2018 13:43:29
Matthias
Hallo
In den Spalten F:M ist der dazugehörige Bereich.
Was heißt da genau?
Tabelle1

 DEFGHIJKLM
1Name1 ????????
2Name2 ????????
3Name3 ????????
4Name4 ????????
5Name5 ????????


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Namensmanager / Bereiche mit VBA benennen
27.12.2018 13:47:21
Micha
Hallo Matthias,
Danke für Deine Nachricht.
Genauso wie du es in deiner Tabelle eingetragen hast.
In Deinem Beispiel hätte ich somit fünf Bereichsnamen mit den jeweiligen Bereichen rechts daneben (F:M)
VG, Micha
AW: Namensmanager / Bereiche mit VBA benennen
27.12.2018 14:01:50
Rudi
Hallo,
z.B. sub aa() dim r as Range for each r in range(cells(1,4), cells(rows.count,4).end(xlup)) if r"" then r.offset(,2).resize(,8).name=r end if next r end sub
Gruß
Rudi
Anzeige
AW: Namensmanager / Bereiche mit VBA benennen
27.12.2018 14:40:30
Micha
Hallo Rudi Maintaire,
Vielen Dank, das funktioniert schon (fast) perfekt.
Der Code darf aber nur in Zeile 7 bis 100 Bereichsnamen vergeben, da außerhalb des Bereichs andere Daten stehen.
Kannst Du mir das "Bitte" noch anpassen?
Danke, Micha
AW: Namensmanager / Bereiche mit VBA benennen
27.12.2018 15:00:06
Micha
Oh welch dämliche Frage von mir.
Das habe ich dann doch selber geschafft :-)
Danke Euch für die gewohnt tolle Hilfe
VG, Micha
Anzeige
Eine Frage noch..
27.12.2018 16:00:22
Micha
Eine Frage hätte ich da doch noch :-)
Ist es möglich das der Bereich nur so weit vergeben wird wie er mit Daten gefüllt ist?
Bei dem von mir leicht angepassten Code, ist der Bereich 50 Zellen breit.
Wenn aber z.B. nur die ersten 10 Zellen mit Daten gefüllt sind, möchte ich das der Bereich auch nur über die ersten 10 Zellen vergeben wird.
Sub Bereichsnamen()
Dim r As Range
For Each r In Range(Cells(7, 4), Cells(Rows.Count, 4).End(xlUp))
If r  "" Then
r.Offset(, 2).Resize(, 50).Name = r
End If
Next r
End Sub
Wäre Super wenn das auch noch klappt.
1000 Dank, Micha
Anzeige
AW: Eine Frage noch..
27.12.2018 16:12:50
Nepumuk
Hallo Micha,
so?
Public Sub Bereichsnamen()
    Dim objCell As Range
    For Each objCell In Range(Cells(7, 4), Cells(100, 4))
        With objCell
            If Not IsEmpty(.Value) Then
                Range(.Offset(0, 2), Cells(.Row, Columns.Count). _
                    End(xlToLeft)).Name = objCell.Value
            End If
        End With
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Eine Frage noch..
27.12.2018 16:14:23
Nepumuk
Hallo Micha,
im letzten Post war noch ein objCell Zuviel drin.
Public Sub Bereichsnamen()
    Dim objCell As Range
    For Each objCell In Range(Cells(7, 4), Cells(100, 4))
        With objCell
            If Not IsEmpty(.Value) Then
                Range(.Offset(0, 2), Cells(.Row, Columns.Count). _
                    End(xlToLeft)).Name = .Value
            End If
        End With
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Eine Frage noch..
28.12.2018 08:15:11
Micha
Hallo Nepumuk,
Vielen Dank für Deine Hilfe.
Ich konnte gestern leider nicht mehr Antworten (musste mit dem Sohnemann zum Fussballturnier)
Vielen Dank für Deinen Code der gut funktioniert :-)
Einzig diese Zeile hatte Probleme gemacht wenn leere Zeilen im Bereich bis Zeile 100 waren:
If Not IsEmpty(.Value) Then
Ich habe das wie folgt geändert:
If objCell "" Then
Klappt Prima :-)
Nochmals vielen Dank und ein guten Rutsch ins neue Jahr
Micha
Anzeige
;

Forumthreads zu verwandten Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Anzeige
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Monatsnamen mit Jahr (VBA)
Andre´

Hallo alle zusammen,
mit folgenden Makro schreibe ich das aktuelle Datum in A1:
Sub Monat() Range("A1") = Str(Date) End Sub
in A1 steht dann:
18.11.2008
Jetzt möchte ich aber den Monatsnamen und das Jahr in A1 wie folgt haben:
November 2008
Kann mir bitte jemand e...
18.11.2008 17:30:00
Thread-ID: 1025713
11 Beiträge
per VBA kopieren, kein Namenskonflikt
Peter

Guten Tag
Beim Kopieren eines Bereiches mit VBA in eine andere Tabelle erhalte ich die Meldung:
"Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits in der Zieltabelle vorhanden ist. Soll die vorhandene Definition von 'xxxxx' verwendet werden?
* Klicken Sie auf '...
11.12.2008 10:45:09
Thread-ID: 1031973
3 Beiträge
worksheet.activate über Name aus Eigenschaften
michael

Hallo Kollegen.
Folgendes Thema:
Ich habe eine Datei als Kopiervorlage, bei der das erste Blatt nicht umbenannt werden soll, weil ich beim schließen der Datei dorthin zurück springe und Aufgaben erledige.
Erst habe ich über Application.CommandBars("ply").Enabled = True die Funktion...
20.01.2009 19:10:54
Thread-ID: 1041968
5 Beiträge
Namensvergabe per VBA
Boris

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X...
30.01.2009 12:14:00
Thread-ID: 1045354
8 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Sheets.Name bei AddInn
mknelles

Hallo Leute,
>wb.Sheets.Countwb.Sheets.Name Gruß Markus
22.03.2009 20:59:56
Thread-ID: 1062713
12 Beiträge
Anzeige
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige