Microsoft Excel

Herbers Excel/VBA-Archiv

Array? -Schleife?..oder ??? | Herbers Excel-Forum


Betrifft: Array? -Schleife?..oder ??? von: robert
Geschrieben am: 03.04.2012 09:17:39

Guten Morgen,

bitte um Anregung bzw. Hilfestellung

Gruί
robert

Tabelle1

 ABCDE
1DATEN  Wunschergebnis:   
206. JanJeder Block beginnt immer mit Datum und endet mit einem Betrag1.Datum2.DatumBetrag
3    usw…..………..……………
4  Texte und Leerzellen sind unterschiedlich-siehe Muster……….………..……………
5wewqe  ……….………..……………
6dfsfdfdf  ……….………..……………
7rtzrzt  ……….………..……………
8    ……….………..……………
9    ……….………..……………
1008. Jan  ……….………..……………
11    ……….………..……………
12236,00       
13         
1412. Jan       
15         
16ghjgjgh       
17vbvnvn       
18         
19         
20         
21         
22         
2315. Jan       
24         
25         
26         
27365,00       

Fόllfarben und Muster
Zelle Rot Grόn Blau Color Muster Farbe
A2 255255065535   
C2 21721721714277081   
D2 21721721714277081   
E2 21721721714277081   
A3 255255065535   
C3 21721721714277081   
D3 21721721714277081   
E3 21721721714277081   
A4 255255065535   
C4 21721721714277081   
D4 21721721714277081   
E4 21721721714277081   
A5 255255065535   
C5 21721721714277081   
D5 21721721714277081   
E5 21721721714277081   
A6 255255065535   
C6 21721721714277081   
D6 21721721714277081   
E6 21721721714277081   
A7 255255065535   
C7 21721721714277081   
D7 21721721714277081   
E7 21721721714277081   
A8 255255065535   
C8 21721721714277081   
D8 21721721714277081   
E8 21721721714277081   
A9 255255065535   
C9 21721721714277081   
D9 21721721714277081   
E9 21721721714277081   
A10 255255065535   
C10 21721721714277081   
D10 21721721714277081   
E10 21721721714277081   
A11 255255065535   
C11 21721721714277081   
D11 21721721714277081   
E11 21721721714277081   
A12 255255065535   
A14 146208805296274   
A15 146208805296274   
A16 146208805296274   
A17 146208805296274   
A18 146208805296274   
A19 146208805296274   
A20 146208805296274   
A21 146208805296274   
A22 146208805296274   
A23 146208805296274   
A24 146208805296274   
A25 146208805296274   
A26 146208805296274   
A27 146208805296274   
Zellen mit Fόllfarbe automatisch werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip Tabellendarstellung in Foren Version 5.47

  

Betrifft: AW: Array? -Schleife?..oder ??? von: ChrisL
Geschrieben am: 03.04.2012 09:42:37

Hi Robert

Probier mal...

Sub test()
Dim iZeile As Long, letzteZeile As Long
Dim dat1 As Date, dat2 As Date, num1 As Currency

dat1 = 0
For iZeile = 2 To Range("A65536").End(xlUp).Row
    If Cells(iZeile, 1) <> "" Then
    If IsDate(Cells(iZeile, 1)) Then
        If dat1 = 0 Then dat1 = Cells(iZeile, 1) Else _
        dat2 = Cells(iZeile, 1)
    Else
        If IsNumeric(Cells(iZeile, 1)) Then
            num1 = Cells(iZeile, 1)
            letzteZeile = Range("C65536").End(xlUp).Row + 1
            Cells(letzteZeile, 3) = dat1
            Cells(letzteZeile, 4) = dat2
            Cells(letzteZeile, 5) = num1
            dat1 = 0
        End If
    End If
    End If
Next iZeile
End Sub


cu
Chris


  

Betrifft: Passt genau-Danke ! owT Gruί von: robert
Geschrieben am: 03.04.2012 10:02:50




Beiträge aus den Excel-Beispielen zum Thema "Array? -Schleife?..oder ???"