|
Hallo,
danke für die Info. Hab den Code jetzt mal folgendermaßen geändert. Leider bekomme ich immer Laufzeitfehler 9. Ist ein Fehler in dem Code?
Wie kann ich die Blätter genauer ansprechen?
Suchbefehl = activeworkbook "F2"
Suchbereich = Workbooks("Aktuelle Aufträge").Worksheets("Adressen").Range("A7:O9999"
Der Teil im Code mit "With Tabelle4" würde ich gerne abändern in "Workbooks("Aktuelle Aufträge").Worksheets("Adressen")"
Könntest mir den Code so abändern das es geht? Leider reichen meine VBA Kentnisse nicht aus.
Die ListBox1 soll mir nur die Zeilen anzeigen die in Workbooks("Aktuelle Aufträge").Worksheets("Adressen")in der Spalte "A-O" das Wort aus meiner aktiven Arbeitsmappe in der Zelle "F2" enthält.
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim Ingz As Long
With Me.ListBox1
.ColumnCount = 10
.ColumnWidths = "120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120;120"
.Font.Size = 14
End With
With Tabelle4
IngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row 'Letzte Zeile
For IngZeile = 7 To IngZeileMax 'Startzeile bis Endzeile
Me.ListBox1.AddItem .Range("A" & IngZeile).Value
If Range("F2").Value = Workbooks("Aktuelle Aufträge").Worksheets("Adressen").Range("O" & IngZeile).Value Then
Me.ListBox1.Column(1, Ingz) = .Range("B" & IngZeile).Value 'Spalte 1 ist Spalte B
Me.ListBox1.Column(2, Ingz) = .Range("C" & IngZeile).Value
Me.ListBox1.Column(3, Ingz) = .Range("D" & IngZeile).Value
Ingz = Ingz + 1
End If
Next IngZeile
End With
|