title image


Smiley Re: Find Column where
Hi



Sub find_col()

Dim First_K As String, Sec_K As String, Third_K As String

Dim i As Integer

First_K = "Alles"

Sec_K = "geht"

Third_K = "irgendwie"



With WorksheetFunction

For i = 1 To 256

If .CountIf(Columns(i), First_K) > 0 And .CountIf(Columns(i), Sec_K) > 0 And .CountIf(Columns(i), Third_K) > 0 Then

MsgBox " Alle diese Werte sind in Spalte: " & i

Exit Sub

End If

Next

End With

MsgBox "Nix gefunden"

End Sub


Feedback nicht vergessen ! Gutes gelingen wünscht Chris



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: