Excel: Auswahl von Zellen/Zeilen in anderes Blatt

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!

Wie kann man mittels VBA Zeilen aus einer Excel-Tabelle heraussuchen (Nicht Autofilter!) und in eine andere Tabelle kopieren?
Beispiel:
Herausfiltern aller Zeilen, die in Spalte C in der Zelle das Wort „Test“ enthalten. Kopie dieser Zeilen in eine andere Tabelle (im selben Excel-File.
Ich möchte also nicht nur ganze Zellen finden, sondern auch Zellen, deren Inhalt einen bestimmten Wert aufweist.

Danke und Grüße
Chris

#2

Wie kann man mittels VBA Zeilen aus einer Excel-Tabelle
heraussuchen (Nicht Autofilter!) und in eine andere Tabelle
kopieren?
Beispiel:
Herausfiltern aller Zeilen, die in Spalte C in der Zelle das
Wort „Test“ enthalten. Kopie dieser Zeilen in eine andere
Tabelle (im selben Excel-File.
Ich möchte also nicht nur ganze Zellen finden, sondern auch
Zellen, deren Inhalt einen bestimmten Wert aufweist.

Hi Chris,
ich habe nicht ganz verstanden, so:?

Option Explicit
Sub tt()
Dim ws1 As Worksheet, ws2 As Worksheet, n As Long, pos As Long
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
pos = 1
With ws1
 For n = 1 To .Cells(65536, 3).End(xlUp).Row
 If .Cells(n, 3) Like "\*test\*" Then
 .Cells(n, 3).EntireRow.Copy Destination:=ws2.Cells(pos, 1)
 pos = pos + 1
 End If
 Next n
End With
End Sub

Gruß
Reinhard

#3

Ok, ok. Für dich war das wahrscheinlich total trivial; ich fange gerade erst an, mich mit VBA zu befassen.

Jedenfalls vielen Dank!

Ich wollte in einer Erweiterung noch die Suchkriterien aus einer Liste auswählen können. Die Liste ist in einer anderen Tabelle (Tabelle 3) hinterlegt. Ist das ebenso einfach?

Gruß
Chris

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Ich wollte in einer Erweiterung noch die Suchkriterien aus
einer Liste auswählen können. Die Liste ist in einer anderen
Tabelle (Tabelle 3) hinterlegt. Ist das ebenso einfach?

Hi Christoph,
Ansicht–SteuelemntToolbox, Kombinationsfeld.
Rechtsklick darauf, „Code anzeigen“, Code einfügen.
Rechtsklick darauf, Eigenschaften, dort bei Listfillrange z.B.:
Tabelle3!A1:A20
eintragen.

Option Explicit
Private Sub ComboBox1\_Change()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, n As Long, pos As Long
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
pos = 1
With ws1
 For n = 1 To .Cells(65536, 3).End(xlUp).Row
 If .Cells(n, 3) Like "\*" & ComboBox1 & "\*" Then
 .Cells(n, 3).EntireRow.Copy Destination:=ws2.Cells(pos, 1)
 pos = pos + 1
 End If
 Next n
End With
End Sub

Gruß
Reinhard