VBA Zelle benennen

Forumthread: VBA Zelle benennen

VBA Zelle benennen

28.09.2004 19:03:51

Gerhard

Hallo,
mein Script sucht mir die letzte Zeile in einer Spalte, löscht mir die Bennenung einer Zelle mit dem Namen "Ende" und nun möchte ich genaue diese letze Zeile mit dem Namen "Ende" versehen.
Wie kann ich dies tun.
So sieht mein Code aus:


Sub letztezeilebenennen()
Sheets("Tabelle1").Activate
ActiveWorkbook.Names("Ende").Delete
Range("F65536").End(xlUp).Select
ActiveCell.Select
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Zelle benennen

Ramses
AW: VBA Zelle benennen

K.Rola

AW: VBA Zelle benennen

Ramses

Hallo
schon mal den Makrorecorder probiert ? ;-)
Option Explicit


Sub Makro1()
' Makro am 28.09.2004 von Ramses aufgezeichnet
ActiveWorkbook.Names.Add Name:="Test", RefersToR1C1:="=Tabelle1!A1"
End Sub

Gruss Rainer

AW: VBA Zelle benennen

K.Rola

Hallo,


Sub letztezeilebenennen()
Names.Add Name:="Ende", RefersTo:="=Tabelle1!" & Sheets("Tabelle1").[F65536].End(xlUp).Address
End Sub

Gruß K.Rola

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel mit VBA zu benennen, folge diesen Schritten:

Öffne das VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)", wähle "Einfügen" und dann "Modul".

VBA-Code einfügen: Füge folgenden Code in das Modul ein, um die letzte Zeile einer bestimmten Spalte zu benennen:

Sub letztezeilebenennen()
    Sheets("Tabelle1").Activate
    ActiveWorkbook.Names("Ende").Delete
    Range("F65536").End(xlUp).Select
    Names.Add Name:="Ende", RefersTo:=Selection
End Sub

Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Zelle zu benennen.

Häufige Fehler und Lösungen

Fehler: "Name ist bereits vergeben"
- Lösung: Stelle sicher, dass der Name "Ende" nicht bereits für eine andere Zelle oder ein anderes Objekt verwendet wird. Lösche den Namen vorher im Code.
Fehler: "Das angegebene Blatt existiert nicht"
- Lösung: Überprüfe den Namen des Blattes in deinem Code. Möglicherweise ist der Name nicht korrekt oder das Blatt wurde gelöscht.
Fehler: "Referenz kann nicht gefunden werden"
- Lösung: Stelle sicher, dass die Zelle, die du benennen möchtest, existiert und dass du die richtige Referenz verwendest.

Alternative Methoden

Eine alternative Methode, um Zellen in Excel zu benennen, ist die Verwendung des Makrorecorders:

Makrorecorder aktivieren: Gehe zu Entwicklertools > Makro aufzeichnen.
Aktionen durchführen: Benenne die gewünschte Zelle manuell.
Makro stoppen: Beende die Aufzeichnung und überprüfe den aufgezeichneten VBA-Code.

Hier ein Beispiel, wie der aufgezeichnete Code aussehen könnte:

Sub Makro1()
    ActiveWorkbook.Names.Add Name:="Test", RefersToR1C1:="=Tabelle1!A1"
End Sub

Praktische Beispiele

Benennen einer Zelle in der letzten Zeile einer Spalte:

Sub letztezeilebenennen()
    Dim letzteZeile As Long
    letzteZeile = Sheets("Tabelle1").Cells(Rows.Count, "F").End(xlUp).Row
    Names.Add Name:="Ende", RefersTo:="=Tabelle1!F" & letzteZeile
End Sub

Benennen mehrerer Zellen:

Sub mehrereZellenBenennen()
    Dim i As Integer
    For i = 1 To 10
        Names.Add Name:="Zelle" & i, RefersTo:="=Tabelle1!A" & i
    Next i
End Sub

Tipps für Profis

Verwende aussagekräftige Namen: Achte darauf, dass die Namen der Zellen klar und verständlich sind, um Verwirrung zu vermeiden.
Nutze Kommentare: Kommentiere deinen VBA-Code, um die Funktionalität zu erklären.
Teste deinen Code: Führe deinen Code in einer Testumgebung aus, um Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich eine Zelle mit einem bestimmten Namen umbenennen? Du kannst den Namen einer Zelle mit dem Befehl Names.Add im VBA-Code festlegen.

2. Was mache ich, wenn der Name einer Zelle bereits existiert? Du kannst den bestehenden Namen mit ActiveWorkbook.Names("DeinName").Delete löschen, bevor du ihn erneut zuweist.

Beliebteste Forumthreads (12 Monate)