Makro, das Nummern richtig einordnet

Hi,
fogendes möchte ich in Excel mittels VBA realisieren. Da ich VBA-Anfänger, hoffe ich hier Hilfe zu bekommen:
Eine Excel-Datei hat zwei Tabellenblätter. Im Blatt "Nummern" stehen zeilenweise Datensätze, bestehend aus Nummern und dazugehörigen Info-Texten. Die Nummern in Spalte A beginnen immer mit einer 2, die in Spalte B immer mit einer 3. Alle diese Nummern sollen nun per Makro an die richtigen Stellen im Blatt "Gesamtliste" kopiert werden. Die Position (d.h. Zeile und Spalte), wohin eine Nummer in die Gesamtliste kopiert werden soll, ergibt sich wie folgt:
- Die Bezeichnung der Spalte ergibt sich bei der 2er-Nummer aus den ersten drei Stellen des Inhalts, der in der Spalte "Größe" in der Basistabelle steht (hier: 200). Bei einer 3er-Nummer ergibt sich die Bezeichnung der Spalte auch aus diesen drei Stellen plus einem "S" (hier: 200S).
- Die Bezeichnung der Zeile ergibt sich aus dem Materialkurztext, wobei die drei Punkte immer ... nur ein Platzhalter für die Größe (hier 200) sind. Anmerkung: Hier wird es knifflig, da der Materialkurztext aus dem Blatt "Nummern" nicht immer 100%ig mit dem aus dem Blatt "Gesamtliste" übereinstimmt. Vielleicht geht es ja trotzdem irgendwie...
Ein Beispiel: Die Nummer 20011687 aus der Basistabelle muss in Zelle F108, die 30014394 muss an Position G108.
Hier die Datei: https://www.herber.de/bbs/user/37115.xls
Klingt etwas kompliziert, oder ;-) Das Ziel des Ganzen sollte aber klar sein. Ich bin für jeden Vorschlag offen, es muss ja nicht gleich eine "Komplettlösung" sein...
Grüße
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias,
mit dem Makro kannst du im Arbeitsblatt "Nummern" in der 3. Spalte
den Materialkurztext abändern und zwar so, dass er ohne dem "DS" erscheint. sicherheitshalber wird der gekürzte Text baw. in die 7.Spalte geschrieben.
Desweiteren wird ein Vergleich der Materialkurztexte durchgeführt. Vielleicht
hilfts dir beim vereinheitlichen der Texte.


Sub suche()
Dim lZ As Long, i As Long, wo As Integer, lZGesamt As Long
Dim Inhalt As String, Inhalt1 As String
Dim wksGesamt As Worksheet, wksNrn As Worksheet
Dim c As Range
Dim Startadresse As String
Set wksGesamt = Worksheets("Gesamtliste")
Set wksNrn = Worksheets("Nummern")
wksNrn.Activate
lZ = Cells(Rows.Count, 3).End(xlUp).Row + 1
For i = 2 To lZ
Inhalt = Cells(i, 3).Value
wo = InStr(1, Inhalt, " DS", 1)
If wo > 0 Then
Inhalt = Mid(Inhalt, 1, wo - 1)
Cells(i, 7) = Inhalt
' nun die Texte in der Gesamtliste suchen
wksGesamt.Activate
lZGesamt = wksGesamt.Cells(Rows.Count, 1).End(xlUp).Row
With wksGesamt.Range("A3:A" & lZGesamt)
Inhalt1 = Left(Inhalt, Len(Inhalt) - 6) ' Suche ohne die 200 C
Set c = .Find(Inhalt1, LookIn:=xlValues, lookAt:=xlPart)
If Not c Is Nothing Then
Startadresse = c.Address
Do
Application.Goto Reference:=wksGesamt.Range("A" & c.Row)
MsgBox "Gesuchter Begriff: " & Inhalt & Chr(10) & "Gefundener Begriff: " & c.Value & Chr(10) & "in Zeile: " & c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Startadresse
End If
End With
wksNrn.Activate
End If
Next i
End Sub

Gibt es eigentlich für die Gesamtliste eine eindeutige Zuordnungsmöglichkeit zur Basistabelle. Wenns die noch nicht gibt, dann ist sie für eine EDV-mäßige Bearbeitung dringend erforderlich. Denn sonst gibts immer wieder falsche Zuordnungen.
Viele Grüße
Herby

Beliebteste Forumthreads (12 Monate)

Makro, das Nummern richtig einordnet

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread