Datenübermittlung

Hallo zusammen,
im Sheet Test1 befinden sich in B: J verschiedene Datensätze!
Wie ist es nun möglich, Daten mit bestimmten Vorzeichen(Zahl)
in ein eigens dafür vorgesehenes Sheet zu übermitteln und nach
Datum zu Sortieren?
Hintergrund: Test1 ist eine Art Kontoauszug und beinhaltet alle
Buchungen! Art der Buchungen möchte ich gerne in KategorieSheets
darstellen um einen besseren Überblick zu bekommen.
Haftpflicht = Sheet Versicherungen, Miete = Sheet Wohnkosten
Beispiel:
Sheet Test1
Als Vorzeichen, in Spalte A, dient z.B. (1) Haftpflicht, (2) Miete,
usw..
A:
2
B:
Datum
C: J restliche Daten
Nun sollen alle Daten(B: J) mit dem Vorzeichen 1 in das Sheet Versicherung,
2 in das Sheet Wohnkosten usw. übermittelt und nach Datum sortiert werden.
Wenn möglich sofort, d.h., wenn in A (Zahl), dann Daten in das jeweilige
KategorieSheet übermitteln.
Wer kann/ möchte Helfen?
Gruß
Edwin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenübermittlung

18.09.2004 14:37:11

Mike E.

AW: Datenübermittlung

18.09.2004 14:41:18

Edwin

Fehlermeldung

18.09.2004 15:02:51

Edwin

AW: Fehlermeldung

18.09.2004 17:51:19

AndréL.

AW: Fehlermeldung

19.09.2004 12:41:49

Edwin

AW: Fehlermeldung

19.09.2004 13:13:17

andre

Sub Sortieren() Dim Zeile as Integer Dim Zeile2 as Integer Dim Zeile3 as Integer Zeile2 = 1 Zeile3 = 1 For Zeile = 1 To Sheets("Test1").Cells.SpecialCells(xlLastCell).Row If Sheets("Test1").cells(Zeile,1) = 2 Then While Sheets("Wohnkosten").Cells(Zeile2,1) <> "" Zeile2 = Zeile2 + 1 Wend Sheets("Test1").Rows(Zeile).Copy _ Destination:= Sheets("Wohnkosten").Rows(Zeile2) End If If Sheets("Test1").Cells(Zeile,1) = 1 Then While Sheets("Versicherung").Cells(Zeile3, 1) <> "" Zeile3 = Zeile3 + 1 Wend Sheets("Test1").Rows(Zeile).Copy _ Destination:= Sheets("Versicherung").Rows(Zeile3) End If End Sub

Hallo AndreL, Mike und alle anderen,
ja, mit "Next Zeile" funktioniert es jetzt einwandfrei!
Esgibt aber noch einen kleinen Schönheitsfehler.
Ich möchte gerne, das die Daten erst ab der fünften Zeile
eingetragen werden.
Wie mach ich das?
Danke
Edwin / VBA Greenhorn


Sub Sortieren()
Dim Zeile As Integer
Dim Zeile2 As Integer
Dim Zeile3 As Integer
Zeile2 = 1
Zeile3 = 1
For Zeile = 1 To Sheets("Test1").Cells.SpecialCells(xlLastCell).Row
If Sheets("Test1").Cells(Zeile, 1) = 2 Then
While Sheets("Wohnkosten").Cells(Zeile2, 1) <> ""
Zeile2 = Zeile2 + 1
Wend
Sheets("Test1").Rows(Zeile).Copy _
Destination:=Sheets("Wohnkosten").Rows(Zeile2)
End If
If Sheets("Test1").Cells(Zeile, 1) = 1 Then
While Sheets("Versicherung").Cells(Zeile3, 1) <> ""
Zeile3 = Zeile3 + 1
Wend
Sheets("Test1").Rows(Zeile).Copy _
Destination:=Sheets("Versicherung").Rows(Zeile3)
End If
Next Zeile
End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread