ich habe ein Tabellenblatt "Daten". Dieses Blatt möchte ich in Spalte C nach einem String durchsuchen und jede Fundstelle in das Blatt "Start" kopieren.
Wie mache ich das?
Gruß Andi
Sub test()
'String aus Combobox
s = cboMasch.Value
Sheets("Daten").Select
For j = 2 To 60
If Cells(j, 3) = s Then
Sheets("Maschinenauswertung").Cells(22, 2).Value = "gefunden"
End If
Next
Sheets("Maschinenauswertung").Select
End Sub
Sub test()
For j = 3 To 60
If Cells(j, 3).Value = "test" Then
Cells(j, 3).Select
Selection.Interior.ColorIndex = 3
End If
Next
End Sub