Anhand der Artikelnummer den Namen in der Spalte daneben darstellen

Müller · 2020-12-01T15:49:11+00:00

Hallo ich habe eine Tabelle in A1 :ca A200 Artikelnummern z.B: X5251666 X5251312 X5254345 X5255249 usw. die 4und 5 Stelle bezeichnet den Artikel es gibt 12 Artikel 51 Diode 54 Kondensator 55 Klemme 56 Niet 57 Zinn 59 Led 61 Kabel 62 Lasche 65 Schraube 66 Transistor 70 Stecker 71 Dose ich möchte per Makro das immer wenn eine Wechsel in Spalte A ist das in B die Artikelbezeichnung steht so zum Beispiel A B X5251666 Diode X5251312 X5254345 Kondensator X5254346 X5254366 X5255249 Klemme kann mir da jemand helfen VG Tom

Hallo Tom,
im Beispiel stehenb die Artikel und zugehörigen Namen inm Blatt Artikel in den Spalten A:B.
Dann so:

Sub Artikelnamen()
Dim lngZeile As Long
Dim strArtikel As String
Dim ws As Worksheet, ws2 As Worksheet
Dim rngC As Range
Set ws = ThisWorkbook.Worksheets("Tabelle1")
Set ws2 = ThisWorkbook.Worksheets("Artikel")
strArtikel = Mid(ws.Cells(1, 1).Value, 4, 2)
Set rngC = ws2.Rows(1).Cells.Find(CInt(strArtikel))
If Not rngC Is Nothing Then
ws.Cells(1, 2).Value = ws2.Cells(rngC.Row, rngC.Column).Offset(0, 1).Value
End If
For lngZeile = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
If Not Mid(ws.Cells(lngZeile, 1).Value, 4, 2) = _
Mid(ws.Cells(lngZeile + 1, 1).Value, 4, 2) Then
strArtikel = Mid(ws.Cells(lngZeile + 1, 1).Value, 4, 2)
Set rngC = ws2.Columns(1).Cells.Find(CInt(strArtikel), After:=ws2.Range("A1"))
If Not rngC Is Nothing Then
ws.Cells(lngZeile + 1, 2).Value = ws2.Cells(rngC.Row, rngC.Column).Offset(0,  _
1).Value
End If
End If
Next lngZeile
Set ws = Nothing
Set ws2 = Nothing
End Sub

Gruß Worti

Hallo,
du hälst wohl nicht sonderlich viel davon alle Beiträge, die dir hier gegeben werden, zu lesen und darauf zu reagieren.
Von Nepumuk hast du gestern um 16:48 h eine Lösung mit Beispielmappe erhalten - reagiert hast du darauf aber nicht.
Und auch von mir hast du gestern bereits eine Lösung mit SVERWEIS bekommen, ebenfalls keine Reaktion.
Eigentlich sollte ich dir das hier gar nicht mehr schicken.

Option Explicit
Public Sub Namen_suchen()
Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaLocal = _
"=WENN(TEIL(B3;4;2)TEIL(B2;4;2);SVERWEIS(TEIL(B3;4;2)*1;werte!A:B;2;FALSCH);"""")"
Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row).Value = _
Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row).Value
End Sub

Und noch mal der Hinweis: Das geht auch ohne VBA mit einer SVERWEIS Formel.
Gruß Werner

Anhand der Artikelnummer den Namen in der Spalte daneben darstellen

Forumthread: Anhand der Artikelnummer den Namen in der Spalte daneben darstellen

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anhand der Artikelnummer den Namen in der Spalte daneben darstellen

Forumthread: Anhand der Artikelnummer den Namen in der Spalte daneben darstellen

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread