title image


Smiley Re: Probleme mit verbundenen Zellen
Hallo,



ich habe mir hierzu mal eine kleine Tabelle gebaut - alle Werte standen in Zeile 3 und dann folgenden VBA Code genutzt:









Sub test()



Tabelle = ActiveSheet.Name

With Sheets(Tabelle)

    letzteSpalte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column

End With



For i = 1 To letzteSpalte Step 1

    Suchtext = Cells(3, i)

    Debug.Print

    Position = InStr(1, Suchtext, "hallo")

    Debug.Print Position

    If Position <> 0 Then

        Stelle = Cells(3, i)

        zelle = i

    End If

Next

    Debug.Print "Der Text " & Stelle & " ist in Zelle (3," & zelle & ") enthalten!"

End Sub



Code eingefügt mit Syntaxhighlighter 4.0







Ich hoffe, dass ich dein Problem richtig verstanden habe und das dir dieser Lösungsvorschlag weiterhilft. Nähere Details findest du auch in der VBA Hilfe unter InStr



Gruß Marion

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: