Sheets("Tabelle1").Range("A1:E10").SpecialCells(xlCellTypeFormulas) 'Formeln
'bzw.
Sheets("Tabelle1").Range("A1:E10").SpecialCells(xlCellTypeConstants) 'Werte
Sub Test()
Dim rZelle As Range, lZeile As Long
Dim wks As Worksheet, rBereich As Range
Set rBereich = Sheets("Tabelle1").Range("A1:E10")
Set wks = Sheets.Add(Sheets(1))
wks.Range("A1") = "Adresse"
wks.Range("B1") = "Inhalt"
lZeile = 1
On Error Resume Next
For Each rZelle In rBereich.SpecialCells(xlCellTypeConstants)
If Err.Number 0 Then GoTo Fehler
lZeile = lZeile + 1
wks.Range("A" & lZeile) = rZelle.Parent.Name & "!" & rZelle.Address
'wks.Range("A" & lZeile) = rZelle.Address 'ohne "TabelleX!" vorn
wks.Range("B" & lZeile) = rZelle
Next rZelle
Fehler:
Err.Clear
For Each rZelle In rBereich.SpecialCells(xlCellTypeFormulas)
If Err.Number 0 Then GoTo Fehler2
lZeile = lZeile + 1
wks.Range("A" & lZeile) = rZelle.Parent.Name & "!" & rZelle.Address
'wks.Range("A" & lZeile) = rZelle.Address 'ohne "TabelleX!" vorn
wks.Range("B" & lZeile) = "'" & rZelle.Formula
Next rZelle
Fehler2:
On Error GoTo 0
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen