Spreu vom Weizen trennen

Forumthread: Spreu vom Weizen trennen

Hans

Hallo,
im Forum gesucht - leider nichts gefunden was mir ansatzweise helfen könnte.
In einer Tabelle (0001) habe ich ca 1000 Buchungen die im vom System erhalte.
Nun möchte ich in eine neue Tabelle folgendes schreiben:
Tabelle 001 enthält in Spalte B Nummern, Texte, etc., Spalte C eine Bezeichnung.
Das Makro soll in die neue Tabelle aus Spalte B alle Werte in Spalte A(neu)hineinschreiben, sofern der Werte in Spalte eine 5-stellige Zahl ist, und das nur einmal vorkommend.
Zudem soll aus der gleichen Zeile aus C die Kontobezeichnung in Spalte B der neuen Tabelle übertragen werden.
Danke
Hans
Beispiel der Herkunftstabelle: Spalte B und Spalte C
21405 ERSATZTEILE,REP.MATERIAL
51200 FREMDTRANSPORTE SUB.
71405 HOTELKOSTEN
71405 HOTELKOSTEN
Vorläufige Summe seit Jahresbeginn
73312 KURSDIFFERENZEN KREDITOR
2 Summe Kontenklasse
8 Summe Kontenklasse
61200 VERBRAUCHSMAT. FREMD
89001 LIEFERANTENSKONTI LIEF.
21405 ERSATZTEILE,REP.MATERIAL
59800 SONST.(HILFS-)LEIST.FREM
61200 VERBRAUCHSMAT. FREMD
5 Summe Kontenklasse
Vorläufige Summe Monat
89001 LIEFERANTENSKONTI LIEF.
21405 ERSATZTEILE,REP.MATERIAL
7 Summe Kontenklasse
73312 KURSDIFFERENZEN KREDITOR

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Spreu vom Weizen trennen

30.03.2012 10:46:57

ChrisL

Hi Hans

Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Rows("2:65536").EntireRow.Delete
For iZeile = 2 To WS1.Range("B65536").End(xlUp).Row
If IsNumeric(WS1.Cells(iZeile, 2)) And WS1.Cells(iZeile, 2) >= 10000 And WS1.Cells(iZeile,  _
2)

cu
Chris

AW: Spreu vom Weizen trennen

30.03.2012 11:01:52

Hans

Hallo Chris,
besten Dank, aber ..
es werde alle Zeilen übertragen.
Ich dachte es ist möglich, jeden Wert nur einmal zu übertragen.
Zudem werden die Werte ab Spalte D auch übertragen.
Danke
Hans

AW: Spreu vom Weizen trennen

30.03.2012 11:02:10

Hans

Hallo Chris,
besten Dank, aber ..
es werde alle Zeilen übertragen.
Ich dachte es ist möglich, jeden Wert nur einmal zu übertragen.
Zudem werden die Werte ab Spalte D auch übertragen.
Danke
Hans

AW: Spreu vom Weizen trennen

30.03.2012 11:07:55

ChrisL

aso, die Bedingung habe ich überlesen...

Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
WS2.Rows("2:65536").EntireRow.Delete
For iZeile = 2 To WS1.Range("B65536").End(xlUp).Row
If IsNumeric(WS1.Cells(iZeile, 2)) And _
WS1.Cells(iZeile, 2) >= 10000 And _
WS1.Cells(iZeile, 2)

cu
Chris

Beliebteste Forumthreads (12 Monate)

Forumthread: Spreu vom Weizen trennen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread