07.02.2022, 17:48
Hallo gemeinde,
habe ein Problem mit einer 'WENN-Schleife' :
=WENNFEHLER(WENN($S$15="";"";INDEX(PO_DB!D14:N10000;VERGLEICH($S$15;PO_DB!K14:K10000;0);5));"")
Wenn ich in S15 bestimmte Nummer ein Scan, dann gibt er mir auch die Daten in den Zeilen aus.
Wenn ich eine ander Nummer ein gebe, dann werden keine Daten in den Zeilen ein gefügt. - Aber wenn ich in dem Tabellenblatt in der 'PO_DB' Spalte K die Nummer dort ein gebe, bekomme ich die Zeile mit den Daten angezeigt.
Was mache ich falsch ???
Ich benötige aus der Zeile (D-N "1-11") alle Daten, gibt es dafür vielleicht ein Makro welches mir nach Eingabe in 'S15' (EAN-Scann = 13stellige Nummer) mir meine Zellen füllt ???
Dazu gibt es noch ein Makro welches mir ein Bild einfügt:
Option Explicit
Sub ET_Bild_einfuegen()
' Bild löschen, falls vorhanden
On Error Resume Next
tb_ET_DR.Shapes("EAN").Delete
On Error GoTo 0
Dim pic As Shape
Dim BildOrdner As String
BildOrdner = "F:\Babo12\System\EAN\" & Range("S15").Text & ".jpg"
With tb_ET_DR
If Dir$(BildOrdner) <> vbNullString Then
Set pic = .Shapes.AddPicture(Filename:=BildOrdner, linktofile:=msoFalse, _
SaveWIthDocument:=msoTrue, Left:=.Range("J31").Left + 1, _
Top:=.Range("J31").Top + 1, Width:=80, Height:=32)
pic.Name = "EAN"
Set pic = Nothing
End If
End With
End Sub
und im Tabellenblatt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("S15")) Is Nothing Then Exit Sub
Call ET_Bild_einfuegen
End Sub
Kann mir da vielleicht jemand helfen bitte, bin gerade ein wenig am verzweifeln.
Danke
habe ein Problem mit einer 'WENN-Schleife' :
=WENNFEHLER(WENN($S$15="";"";INDEX(PO_DB!D14:N10000;VERGLEICH($S$15;PO_DB!K14:K10000;0);5));"")
Wenn ich in S15 bestimmte Nummer ein Scan, dann gibt er mir auch die Daten in den Zeilen aus.
Wenn ich eine ander Nummer ein gebe, dann werden keine Daten in den Zeilen ein gefügt. - Aber wenn ich in dem Tabellenblatt in der 'PO_DB' Spalte K die Nummer dort ein gebe, bekomme ich die Zeile mit den Daten angezeigt.
Was mache ich falsch ???
Ich benötige aus der Zeile (D-N "1-11") alle Daten, gibt es dafür vielleicht ein Makro welches mir nach Eingabe in 'S15' (EAN-Scann = 13stellige Nummer) mir meine Zellen füllt ???
Dazu gibt es noch ein Makro welches mir ein Bild einfügt:
Option Explicit
Sub ET_Bild_einfuegen()
' Bild löschen, falls vorhanden
On Error Resume Next
tb_ET_DR.Shapes("EAN").Delete
On Error GoTo 0
Dim pic As Shape
Dim BildOrdner As String
BildOrdner = "F:\Babo12\System\EAN\" & Range("S15").Text & ".jpg"
With tb_ET_DR
If Dir$(BildOrdner) <> vbNullString Then
Set pic = .Shapes.AddPicture(Filename:=BildOrdner, linktofile:=msoFalse, _
SaveWIthDocument:=msoTrue, Left:=.Range("J31").Left + 1, _
Top:=.Range("J31").Top + 1, Width:=80, Height:=32)
pic.Name = "EAN"
Set pic = Nothing
End If
End With
End Sub
und im Tabellenblatt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("S15")) Is Nothing Then Exit Sub
Call ET_Bild_einfuegen
End Sub
Kann mir da vielleicht jemand helfen bitte, bin gerade ein wenig am verzweifeln.


Danke