Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wiederholen

wiederholen
26.11.2006 08:24:45
okmiko
Hallo Excelfans,
ich habe folgende Frage:
In meinem Tabellenblatt sind 2 Bereiche über Namen definiert (Zellen A1-A20 mit "Namen1"; Zellen A30-A40 mit "Namen2") Für die Zellen in "Namen1" lasse ich nun ein Makro laufen. Wie kann ich das gleiche Makro auch für die Zellen in "Namen2" ablaufen lassen. Gibt es da eine Art schleife?
Danke
MfG
okmiko

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

Betreff
Datum
Anwender
Anzeige
AW: wiederholen
26.11.2006 09:25:15
Coach
Hallo okmiko,
dim i as long, r as range 'statt r Deine Range-Variable
for i = 1 to 2
for each r in Range("Namen"&i)
'hier Dein Code
next
next
Gruß Coach
AW: wiederholen
26.11.2006 09:42:29
Luschi
Hallo okmiko,
so kann man 1 Prozedur für mehrere Namensbereiche nutzen:
Sub tueWas()
Call tueWas("Name1", False)
Call tueWas("Name2", True)
End Sub
Sub soTueDas(xName As String, ok As Boolean)
Dim rg1 As Range, rg2 As Range
Set rg1 = ThisWorkbook.Names(xName).RefersToRange
For Each rg2 In rg1
rg1.Font.Bold = ok
Next rg2
Set rg1 = Nothing
Set rg2 = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: wiederholen
26.11.2006 10:25:59
Coach
Hallo Luschi,
sicherlich hast Du Recht, dass es sinnvoll ist, häufig zu verwendenden Code in parametrisierten Subs/Funktionen zu kapseln, aber hier war die konkrete Frage auf das Durchlaufen standardisierter Namen per Schleife bezogen.
Gruß
Coach

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige