Guten Abend
Mit Hilfe dieses Forums habe ich nachfolgenden Code zusammengestellt, der wunderbar funktioniert.
Bei der ersten Zeile nach For i = 1 To 26 möchte ich die nun die Bedingung etwas abändern. Vorliegend werden die Spalten 1 bis 26 abgearbeitet, bis bestimmte Strings gefunden werden und der maximale Wert in der gleichen Spalte kleiner als 7 ist.
Nun möchte ich den zweiten Bedingungsteil abändern und zwar ist nicht mehr der maximale Wert massgebend, stattdessen soll überprüft werden, ob in der Spalte ein String vorhanden ist, der 7 oder mehr Zeichen enthält.
Optimal wäre, wenn auf diese Spalten auch noch die glätten() angewandt werden könnte.
Danke für jede Unterstützung.
Gruss, Peter
Private Sub Worksheet_deactivate()
Application.StatusBar = ""
Dim i As Integer
Dim rng As Range
With Application.WorksheetFunction
For i = 1 To 26
If .CountIf(Me.Columns(i), "*T.*") + .CountIf(Me.Columns(i), "*C.*") > 0 And .Max(Me. _
Columns(i))