Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche per VBA auf mehreren Sheets

Forumthread: Bereiche per VBA auf mehreren Sheets

Bereiche per VBA auf mehreren Sheets
22.12.2004 13:29:11
Peter
Hallo
Ich habe ein Workbook mit 12 Monats-Sheets: Jan, Feb ... Dez erstellt.
Im Sheet Januar definiere ich mit viel Aufwand ca.150 Bereichsnamen (Überschrift1_01), Übeschrift2_01 u.s.w.). Alle Bereiche haben die Länge von Zeile 10 bis 7000. Für die übrigen 11 Monatssheets müsste ich also nochmals 11 * die 150 gleichlautenden Bereichsnamen definieren, die sich lediglich in der Endung "_01, _02, _03 u.s.w. unterscheiden.
Gibt es eine Möglichkeit, diese Arbeit per VBA zu lösen?
Besten Dank zum Voraus für einen dienlichen Hinweis.
Freundlich grüsst
Peter
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche per VBA auf mehreren Sheets
bst
Mahlzeit Peter,
versuch mal sowas ähnliches.
HTH, Bernd
--
Option Explicit

Sub CopyiNames()
Dim n As name
Dim i As Integer
Dim newname As String
Dim newref As String
For Each n In ActiveWorkbook.Names
If Right(n.name, 3) = "_01" Then
For i = 2 To 12
newname = Left(n.name, Len(n.name) - 3) & "_" & Format(i, "00")
newref = "=" & Format(DateSerial(2000, i, 1), "MMM") & "!" & Mid(n.RefersTo, InStr(n.RefersTo, "!") + 1)
ActiveWorkbook.Names.Add newname, newref
Next
End If
Next
End Sub

Anzeige
AW: Bereiche per VBA auf mehreren Sheets
Peter
Hi Bernd
Dein Programm ist perfekt! Herzlichen Dank.
Ich werde nun auf dem Januar-Sheet zuerst in einer For-Next-Schleife alle 150 Titel und die Bereichsgrösse Zeile 10 bis 7000 einlesen und anschliessend dein Programm starten.
Der Feierabend ist gesichert!
Beste Grüsse
Peter
Anzeige
AW: Bereiche per VBA auf mehreren Sheets
bst
Hallo Peter,
Bitteschön.
Gruß, Bernd
;

Forumthreads zu verwandten Themen

sheet / tabelle is selected ?
t4z

Hallo Leute,
ich möchte gern auf jedem Sheet einer Arbeitsmappe in das Worksheet_Activate-Event folgendes schreiben:
Private Sub Worksheet_Activate() Me.Range(Me.Name & "_ISACTIVE") = True For Each SH33T In ActiveWorkbook.Sheets SH33T.Range(SH33T.Name & "_ISACTIVE") = isSelect...
04.06.2009 11:20:43
Thread-ID: 1079095
6 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Anzeige
Problem mit Array für Worksheets & Select
Chris

Hallo Zusammen,
ich habe hier ein Problem und steh total auf dem Schlauch.
Ich möchte einen Array verschiedener Worksheets markieren und in eine neue Datei exportieren.
Ich möchte alle von TabellenblattA bis TabellenblattX markieren.
Zuerst indiziere ich die Nummern der Blätte...
12.09.2009 15:55:03
Thread-ID: 1102242
2 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980

Hi miteinander,
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft: Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arr...
25.10.2009 13:29:53
Thread-ID: 1112009
2 Beiträge
Anzeige
VBA vereinfachen - Berechnung in einem Sheet
Stef@n

Hallo Excel-Freunde,
ich habe bislang Dateiübergreifend eine Berechnung via VBA durchgeführt.
Nun habe ich die beiden Dateien zusammengefasst (2 Tabellenblätter) und
möchte dazu meinen Code vereinfachen.
Es werden Werte aus dem Tabellenblatt "Matrix" ausgelesen, in das TB "Calcu...
27.11.2009 14:22:34
Thread-ID: 1120536
8 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Select Case ... Sheet.CodeName
Peter


Guten Tag
Ich möchte, dass ein Code nur ausgeführt wird, wenn der Tabellen-Codename Tabelle01, Tabelle02, Tabelle03, .... oder Tabelle25 ist.
Auf Codename greiffe ich zurück, da die Tabellennamen gelegentlich angepasst werden (ohne dass der Inhalt ändert).
Das versuche ich mich...
16.08.2010 10:44:55
Thread-ID: 1172363
13 Beiträge
Zellüberwachung auf mehreren Worksheets via VBA
Frank

Hallo zusammen,
ich möchte in einem Workbook (mit einer Vielzahl von Worksheets) Veränderungen in bestimmten Zellen per VBA abfabgen und ein Event auslösen lassen.
Ich möchte auf keinen Fall auf in jedem einzelnen Worksheet ein "Worksheet_Change" verwenden, sondern das ganze am liebsten...
15.04.2011 14:35:58
Thread-ID: 1210614
9 Beiträge
Sheet archivieren - VBA Fehlermeldung
Matthias

Hallo Excelgemeinde/-Fans,
der gefundene Code hat mir schon mal geholfen , allerdings nun mit Fehler :
1004- Anwendungs oder -objektdefenierter Fehler.
Ich habe vorher mit Excel2003 gearbeitet nun mit excel2010 (13)
Aufgabe soll eigentlich nur sein das er Tabellenblatt "Rechnung...
24.06.2011 17:28:15
Thread-ID: 1219537
8 Beiträge
Anzeige
nach Sheet select, keine Reaktion im Sheet
Frank

Hallo, ich habe das Problem, dass nach dem Öffnen der Mappe das Sheet xy zwar selected wird, Range oder irgendeine andere Anweisung dann aber nicht ausgeführt wird. Danke für die Hilfe.
Private Sub Workbook_Open() Sheets("xy").Select End Sub Sheet xy: Private Sub Worksheet_Activate() Range...
30.01.2012 20:24:04
Thread-ID: 1248593
10 Beiträge
Anzeige
Sheet mit Formatierung ohne VBA copy
Mike

Hallo,
ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl=anzahl*12 'für die Monate
ergeben sollte es dann sowas in 3 Monatsabständen.
Daten_3
Daten_6
Daten_9<...
07.03.2012 10:33:31
Thread-ID: 1253991
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