Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einsortieren

Einsortieren
08.10.2002 17:11:28
H@ns
Hallo XL-Forum,

ich hab folgendes Problem:
Am Ende vom Monat zieh ich mir aus SAP einen Status, der mir meinen Bestand anzeigt. Diese Bestandaufnahme wird in einer lokalen XL-Datei kontinuierlich fortgeführt. Nun passiert es, daß in einem Monat bspw. neue Artikel in Form von Artikelnummern hinzukommen. Bisher mach ich das Einsortieren der neuen Artikelnummern noch manuell.
Ich dachte da an eine schnellere Lösung gem. Prinzip: suche Artikelnummer 123456, wenn nicht vorhanden, dann einfügen (inkl. der neuen Zeile) vor Artikelnummer 123457. Ist sowas ähnliches mit XL, VBA machbar?
Schon jetzt danke für Inspirationen.....

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

Betreff
Datum
Anwender
Anzeige
Re: Einsortieren
08.10.2002 20:02:30
geri
kleiner Lösungsansatz von HP von http://home.tiscali.de/excelseite/Index.html

Sub Tabellen_vergleichen_und_aktualisieren()
' vergleicht Tabelle 2 mit Tabelle 1 und ändert Tabelle 1
' auf den Stand von Tabelle 2. Geänderte Zellen werden
' grün hinterlegt. In diesem Beispiel werden nur die
' Spalten B beider Tabellen verglichen.

Dim verg1(200), verg2(299)
Worksheets("Tabelle1").Activate
z = 1
Do While Cells(z, 1) <> ""
verg1(z) = Cells(z, 2)
Range("B" & z).Select
Selection.Interior.ColorIndex = xlNone
z = z + 1
Loop
Worksheets("Tabelle2").Activate
y = 1
Do While Cells(y, 1) <> ""
verg2(y) = Cells(y, 2)
y = y + 1
Loop
For r = 1 To z - 1
If verg2(r) <> verg1(r) Then
Worksheets("Tabelle1").Activate
Cells(r, 2) = verg2(r)
Range("B" & r).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Worksheets("Tabelle2").Activate
Next r
Worksheets("Tabelle1").Activate
End Sub


gruss geri

Anzeige
Re: Einsortieren
08.10.2002 20:10:47
geri
oh es funkt nicht, ich schaue nochmal ob ich Lösung sehe

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige