wiederholen

Forumthread: wiederholen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: wiederholen

wiederholen

26.11.2006 09: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

AW: wiederholen

26.11.2006 10:25:15

Coach
AW: wiederholen

26.11.2006 10:42:29

Luschi
AW: wiederholen

26.11.2006 11:25:59

Coach

AW: wiederholen

26.11.2006 10: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 10: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

AW: wiederholen

26.11.2006 11: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