in Spalte A steht in unterschiedlichen Zeilen "/". Alle Zeilen in Spalte A mit "/" sollen per VBA zu Krontollzwecken selectiert werden, mehr nicht.
Wer kann weiterhelfen.
Gruß
wolf ludwig
Sub SlashMarker()
Dim rngRow As Range, rngSelect As Range
For Each rngRow In ActiveSheet.UsedRange.Rows
If InStr(Cells(rngRow.Row, 1), "/") > 0 Then
If rngSelect Is Nothing Then
Set rngSelect = rngRow
Else
Set rngSelect = Union(rngSelect, rngRow)
End If
End If
Next
rngSelect.EntireRow.Select
End Sub
Viele GrüßeSub SlashRowInsert()
Dim rngRow As Range, rngSelect As Range
For Each rngRow In ActiveSheet.UsedRange.Rows
If InStr(Cells(rngRow.Row, 1), "/") > 0 Then
If rngSelect Is Nothing Then
Set rngSelect = rngRow
Else
Set rngSelect = Union(rngSelect, rngRow)
End If
End If
Next
rngSelect.Insert Shift:=xlDown
End Sub
Viele GrüßeSub Zeichen()
Dim symbol As Integer
Dim Zeile_s As Integer
Dim Zeichen As Long
For Zeile_s = 1 To 100
For Zeichen = 1 To Len(Cells(Zeile_s, 1))
If Mid(Cells(Zeile_s, 1), Zeichen, 1) = " " Then
MsgBox "Ich habe ein - gefunden"
Exit For
ElseIf Mid(Cells(Zeile_s, 1), Zeichen, 1) = "/" Then
Cells(Zeile_s, 1).Interior.Color = vbRed
'MsgBox "Ich habe ein / gefunden"
Exit For
End If
Next
Next
End Sub