Thema Datum  Von Nutzer Rating
Antwort
12.09.2009 12:19:30 tomboy0815
NotSolved
Blau Aw:eigene Objekte in einer for schleife
 12.09.2009 13:18:52 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
12.09.2009 13:18:52		 Views:
743		 Rating:
     
Antwort:
  Ja
Thema:
Aw:eigene Objekte in einer for schleife
Hallo tomboy0815,

z.B.:

Sub löse()


Dim wuerfel As Object
Dim wuerfelseite1 As Range
Dim wuerfelseite2 As Range 'oben
Dim wuerfelseite3 As Range
Dim wuerfelseite4 As Range 'unten
Dim wuerfelseite5 As Range
Dim wuerfelseite6 As Range
'Dim wuerfelseite As Range


Set wuerfelseite1 = Range("A11:B12")
Set wuerfelseite2 = Range("C11:D12")
Set wuerfelseite3 = Range("E11:F12")
Set wuerfelseite4 = Range("G11:H12")
Set wuerfelseite5 = Range("C9:D10")
Set wuerfelseite6 = Range("C13:D14")
Set wuerfelseite = Nothing

wuerfelseite = Array(wuerfelseite1, wuerfelseite2, wuerfelseite3, wuerfelseite4, wuerfelseite5, wuerfelseite6)
For i = 0 To 5

For Each c In wuerfelseite(i) 'würde statt der 1 gerne i schreiben
Debug.Print c.Value



Next c

Next
End Sub

Gruß
Holger



tomboy0815 schrieb am 12.09.2009 12:19:30:


Sub löse()


Dim wuerfel As Object
Dim wuerfelseite1 As Range
Dim wuerfelseite2 As Range 'oben
Dim wuerfelseite3 As Range
Dim wuerfelseite4 As Range 'unten
Dim wuerfelseite5 As Range
Dim wuerfelseite6 As Range
Dim wuerfelseite As Range


Set wuerfelseite1 = Range("A11:B12")
Set wuerfelseite2 = Range("C11:D12")
Set wuerfelseite3 = Range("E11:F12")
Set wuerfelseite4 = Range("G11:H12")
Set wuerfelseite5 = Range("C9:D10")
Set wuerfelseite6 = Range("C13:D14")
Set wuerfelseite = Nothing


For i = 1 To 6

For Each c In wuerfelseite1 'würde statt der 1 gerne i schreiben
Debug.Print c.Value



Next c

Next
End Su

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.09.2009 12:19:30 tomboy0815
NotSolved
Blau Aw:eigene Objekte in einer for schleife
 12.09.2009 13:18:52 Holger
NotSolved