Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife Output Array
 04.01.2013 10:03:57 Benedikt
NotSolved
04.01.2013 14:06:14 schokobons
Solved
04.01.2013 15:08:27 schokobons
NotSolved

Ansicht des Beitrags:
Von:
Benedikt 		Datum:
04.01.2013 10:03:57		 Views:
1670		 Rating:
     
Antwort:
  Ja
Thema:
Schleife Output Array

Guten Morgen,

 

ich sitze seit gestern an einem Problem. Ich habe eine Spalte die soll mit Hilfe einer For Each Schleife durchlaufen werden. Wenn sich ein "-" in einer Zelle befindet soll die Zellenummer der Zelle über der Zelle mit dem Inhalt "-" in ein Array gespeichert werden. Das soll n mal passieren bis alle 'Zellen abgearbeitet sind.

Zur Zeit schreibt er mit immer nur die letzte Zeile in das Array und sind die Zellen aus den Bereichen davor. Auf dem Beispiel Screenshot:

Er soeichert nur die Zeile 33 in das Array es soll aber auch die 26 gespeichert werden.

 

Danke für eure Hilfe im Vorraus. Gruß

Link zum Bild:

http://postimage.org/image/g1wu9tsm9/

 

Sub Grouping()
' Grouping
'


Start = 0
Ende = 0
w = ActiveCell.Row
d = w
e = 0
   
While Range("C" & d).Interior.Color <> RGB(200, 200, 200)
        d = d - 1
        Start = d + 1

Wend
Dim x As Range
Set x = Worksheets("Overview").Range("C" & Start & ":C1000")
For Each Zelle In x
    e = e + 1
    If Zelle.Value Like "-" Then
    Ende = (Start + e) - 2
End If
Next

'Array in Ende
Dim Array1(1 To 10) As Integer
For i = 1 To 10
    Array1(i) = Ende
Next i



MsgBox ("start:" & Start)
MsgBox ("Ende:" & Ende)
MsgBox ("Array: " & Array1(1))


'Worksheets("Overview").Rows(Start & ":" & Ende).Rows.Group


End Sub

 

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
Rot Schleife Output Array
 04.01.2013 10:03:57 Benedikt
NotSolved
04.01.2013 14:06:14 schokobons
Solved
04.01.2013 15:08:27 schokobons
NotSolved