Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
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

Spreu vom Weizen trennen

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

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

Betreff
Benutzer
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige