With With Verschachtelung

Hallo Fachleute,
ich hab eine Frage an Euch: durch Zufall, weil ich was rumprobiert habe, hat sich ungewollt etwas ergeben, was ich bisher so nie gewagt habe zu schreiben:
es gibt einen With-Bereich mir Verweisen auf eine Tabelle; darin gibt es einen weiteren With-Bereich auf eine andere Tabelle, hier mal skizziert:

Sub skizze
With Tabelle 10
.cells(....
.cells(.....
With Tabelle1
.cells(......
.cells(.....
end with
.cells(....
.cells(.....
end with
End Sub

Die Verweise in der 2 With-Schleife beziehen sich alle auf Tabelle1.
Wie gesagt, das hab ich so nicht geplant, es hat sich beim Probieren ergeben. ABER: beim Testen scheint es keine Fehler zu geben, es scheint alles richtig zu laufen wie gewünscht, soweit ich es bisher überblicken kann.
Spricht irgendwas gegen diese Verschachtelung? Steckt irgendein Risiko drin, das ich noch nicht erkenne.........?
Grüße
Franz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub skizze With Tabelle 10 .cells(.... .cells(..... With .CheckBoxes(1) If .Value = 1 then (Aktion starten) end If end with With .Range("C10") .cells(1,2) = Text1 .cells(2,2) = Text2 end with With .Range("C10").Font .ColorIndex = 3 .Bold = True end with With .Range("C10").Interior .ColorIndex = 23 end with end with End Sub

Hallo Franz,
eine interessante Variante ist auch Resize(z,s) = (Zeile, Spalte)
Es veraendert den Rang Bereich um den Wert Z/S
.Range("C10").Resize(1 ,2).Copy
.Range("C10").Resize(2 ,1).Copy
.Range("C10").Resize(3 ,2).Copy
Bei Cells statt Offset gibt es noch eine wichtige Besonderheit, probiere es mal aus.
.Range("C10:D14").Offset(0,3).Copy
.Range("C10:D14").Cells(1, 4).Copy - Hier verursacht Cells einen Fehler !!!
Erkennst du den Unterschied? - Da bin ich Anfangs selbst böse reingefallen.
Es macht aber Spass sich mitVBA zu beschaeftigen.
mfg Piet
anbei noch ein kleines ;Adressen Test Programm das ich selbst verwende.
Man kann damit sehr schnell eigene Range Adressen Fehler erkennen.
Und ein Beispiel für Blockweises Adressieren über sp*2 / ze*4

'Adressen Test Modul per MsgBox
'Adressen Test Modul per MsgBox
Const ClrList = "A2:B20"
Const SortBer = "A2:D20"
Const CopyBer = "F12:H30"
Const tBer = "C4:D7"
Sub Adressen_Test()
Dim mTxt As String, ok As Variant
Sheets("Tabelle1").Select
mTxt = "Lösche Liste"
Range(ClrList).Select:   GoSub mTxt
mTxt = "Sortier Bereich"
Range(SortBer).Select:   GoSub mTxt
mTxt = "Kopier Bereich"
Range(CopyBer).Select:   GoSub mTxt
[a1].Select:  Exit Sub
mTxt:  Adr = Selection.Address(False, False)
ok = MsgBox(mTxt & "  " & Adr, 1, "Adressen-Test:")
If ok = vbOK Then Return
End Sub
'Adressen Test für Blockweises ausfüllen
Sub Adressen_Test_2()
Dim sp, ze, s, z, j
For ze = 1 To 3
For sp = 1 To 4
'Spalten + Zeilen Offset setzen
s = (sp - 1) * 2
z = (ze - 1) * 4
'Schkeife für 12 Einzel-Blöcke ausfüllen
Range(tBer).Offset(z, s).Select
MsgBox Selection.Address
For Each j In Range(tBer).Offset(0, s)
Next j
Next sp
Next ze
End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

With With Verschachtelung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread