Teilstring in Spalte suchen
03.01.2013 10:30:13
dEllE
wir haben mal wieder ein Problem, bei dem wir einfach nicht weiterkommen:
Wir möchten uns alle Artikel eines Lagerregals anzeigen lassen. Die Artikel liegen in einem Lagerfach z.B. 14/F. Wir geben in eine Zelle den Wert für "nur" das Regal ein z.B. 14/. Leider wird dieser "Teilstring" nicht gefunden. Desweiteren funktioniert das Makro auch nur, wenn wir in genau einer Zelle suchen und nicht in einer Range.
Wir haben jetzt hin- und her probiert, aber sind am Verzweifeln. Hat jmd. eine Ahnung wie genau wir das Makro umschreiben müssen?
Sub Erstelle_Druckausgabebogen()
Application.ScreenUpdating = False
Dim a As Long
Dim i As Long
Dim Lagerfach As Variant
Dim Suchbereich As Variant
Lagerfach = ThisWorkbook.Worksheets("Druckausgabe").Range("B1").Text
Suchbereich = ThisWorkbook.Worksheets("Artikel").Range("DA:DA").Text
a = 3 'Trage die gefundenen Werte ab der 3ten Zeile ein
For i = 1 To 1000
With Worksheets("Artikel")
If Lagerfach = Suchbereich Then
MsgBox "Wert gefunden"
'Worksheets("Artikel").Cells(i, "A").Copy _
'Destination:=Worksheets("Druckausgabe").Cells(a, "A")
'Worksheets("Artikel").Cells(i, "B").Copy _
'Destination:=Worksheets("Druckausgabe").Cells(a, "B")
'Worksheets("Artikel").Cells(i, "H").Copy _
'Destination:=Worksheets("Druckausgabe").Cells(a, "C")
a = a + 1
Else
MsgBox "Nix drin"
End If
End With
Next i
Application.ScreenUpdating = True
End Sub