ich möchte in die zellen, die ich markiere den text auslesen....
das kann ja sein das ich da A1 und B2 A7 markiere....
wie mach ich das?
MFG
Sub SelektierteZeilenKopieren()
' Kopiert alle sichtbaren Zellen im markierten Bereich.
Application.Selection.SpecialCells(xlCellTypeVisible).Copy
' Fügt die kopierten dann z.B. wie hier in ein neues Tabellenblatt ein.
Worksheets("Tabelle2").Paste
Application.CutCopyMode = False
End Sub
Sub SelektierteUeberEach()
Dim rngZelle As Range
Dim inti As Integer
Dim strText As String
inti = 1
For Each rngZelle In Selection.SpecialCells(xlCellTypeVisible)
strText = rngZelle
Sheets("Tabelle2").Cells(inti, 1) = strText
inti = inti + 1
Next
End Sub
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