AW: Zellen markieren
26.08.2005 14:09:31
Heiko
Hallo
dann halt so.
Sub Macro1()
Dim MyString As String
Dim MyWord As String
Dim MyPosStart As Integer
Dim MyPosEnd As Integer
Dim SearchChar As String
Dim Counter As Integer
Dim Zelle As Range
Counter = 0
For Each Zelle In Selection
If Zelle.EntireRow.Hidden = False And Zelle.EntireColumn.Hidden = False Then
SearchChar = """"
MyPosStart = 1
MyPosEnd = 0
MyString = Zelle.Value
Do
MyPosStart = InStr(MyPosEnd + 1, MyString, SearchChar)
MyPosEnd = InStr(MyPosStart + 1, MyString, SearchChar)
If MyPosStart <> 0 Then
MyWord = Mid(MyString, MyPosStart + 1, MyPosEnd - MyPosStart - 1)
' Vokabel in Tabelle2 schreiben
Counter = Counter + 1
Sheets("Sheet2").Range("A" & Counter).Value = MyWord
End If
Loop Until MyPosStart = 0 Or MyPosEnd = 0
End If
Next
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !