Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array? -Schleife?..oder ???

Array? -Schleife?..oder ?
robert
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Array? -Schleife?..oder ?
03.04.2012 09:42:37
ChrisL
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
Anzeige
Passt genau-Danke ! owT Gruß
03.04.2012 10:02:50
robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige