Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benutzerdefinierte Namen in VBA

Forumthread: benutzerdefinierte Namen in VBA

benutzerdefinierte Namen in VBA
lakritze
Hallo in die Runde,
ich will für Aufgaben die Start- und Stoppzeiten dokumentieren, dafür habe ich in Excel Namen vergeben. Wie ich diese Zellen in VBA aufrufe, habe ich inzwischen raus: Zelle D51 heißt START01, also in VBA [START01]. Einzelne Zellen weiterspringen klappt auch. Problem ist, wie kann ich Zelle D51:H51 selektieren? Hierfür auch einen Namen vergeben will ich nicht und mit range oder cells bin ich nicht weitergekommen.
Lieben Gruß,
Lakritze
Private Sub CmdStart01_Click()
Dim x As Range
Set x = [start01]
If CmdStart01.Caption = "START 1" Then
x = Now   'Start
x.Offset(0, 1) = "" 'Stopp
x.Offset(0, 2) = "" 'Datum
x.Offset(0, 3) = "" 'Dauer
CmdStart01.Caption = "STOPP"
Else
x.Offset(0, 1) = Now 'Stopp
x.Offset(0, 2) = Date 'Datum
x.Offset(0, 3).FormulaR1C1 = "=RC[-2]-RC[-3]"  'Dauer
Range("D51", "H51").Copy                      'kopieren
[outputstoppuhr].Offset(1, 0).Insert
Application.CutCopyMode = False
CmdStart01.Caption = "START 1"
End If
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Das liegt nicht an Range, denn...
22.05.2010 13:05:08
Luc:-?
…[Start01] heißt auch nur Range("Start01"), Lakki…
Dafür erhebt sich die Frage, warum du kopierst, wenn du doch nichts einfügst (.Paste)?
Gruß+FroPf, Luc :-?
AW: Das liegt nicht an Range, denn...
22.05.2010 13:27:03
lakritze
Hallo Luc,
danke für deinen Hinweis mit Range, mit Range("start01") kriege ich die Zelle selektiert, gefällt mir. Eingefügt wird mit "insert". So ganz raus habe ich aber noch nicht, wie ich nicht nur die einzelne Zelle, sondern auch die vier rechtsstehenden selektiere, außer, wenn ich doch einen Namen für diese Zellen vergeben (womit dann auch die Steinzeit-Klammern verschwinden), aber dann noch ein Name in der Datei existiert.
Lieben Gruß,
Jana
Anzeige
AW: Range("D51:H51").Copy
22.05.2010 13:06:38
Gerd
Hallo L.,
gewöhne dir diese Steinzeit-Klammer-Schreibweise ab, das ist die langsamste.
Gruß Gerd
ohne Copy usw.
22.05.2010 19:49:34
Erich
Hi,
falls dich das noch interessiert, probier mal: 

Option Explicit
Private Sub CmdStart01_Click()
With Range("start01")
If CmdStart01.Caption = "START 1" Then
.Value = Now           'Start
.Offset(, 1).Resize(, 3).ClearContents    'Stopp, Datum, Dauer
CmdStart01.Caption = "STOPP"
Else
.Offset(, 1) = Now                           'Stopp
.Offset(, 2) = Date                          'Datum
.Offset(, 3).FormulaR1C1 = "=RC[-2]-RC[-3]"  'Dauer
Range("outputstoppuhr").Offset(1).Resize(, 5) = Range("D51:H51").Value
CmdStart01.Caption = "START 1"
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: ohne Copy usw.
22.05.2010 20:57:45
lakritze
Hallo Erich,
dankeschön, sieht einiges komprimierter aus und funktioniert prima.
Danke euch dreien für die Unterstützung!
Lieben Gruß,
Lakritze
;

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
Anzeige
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
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
Anzeige
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
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