Habe wieder eine Frage:
Wie kann ich in einer Spalte nach "Text" durchsuchen?
Wenn ich einen Text finde, soll der Text übernommen werden und das Makro starten - wenn mehrere Texte vorkommen sollen diese alle weiterverarbeitet werden.
mfg. bearny
Sub Makro1()
Application.ScreenUpdating = False
Dim A, B
A = "Text"
Range("A1").Select 'A1 ist die Zelle mit der er Anfängt zu suchen
For i = 1 To 100 ' Sucht in den ersten 100 Zellen der Spalte A
If ActiveCell = A Then
B = B + 1
ActiveCell.Offset(1, 0).Activate
Else:
ActiveCell.Offset(1, 0).Activate
End If
Next i
Application.ScreenUpdating = True
MsgBox "Sie haben " & B & " Treffer!" 'Gibt die eine Box mit der Anzahl der Treffer aus
End Sub
Private Sub Worksheet_Calculate()
If [v7] >= 1 Then Call Wirth
If [w7] >= 1 Then Call Höhner
If [x7] >= 1 Then Call Kurz
If [y7] >= 1 Then Call Rüegg
If [z7] >= 1 Then Call Salvodelli
If [aa7] >= 1 Then Call Osreinig
End Sub