AW: Benannte Bereiche bearbeiten
08.06.2009 21:00:35
Gerd
Hallo Uwe!
Ich habe eine andere xl-Version. Evtl. sind noch Anpassungen nötig.
Eingabezelle für Suchbegriff: A1
Ausgabe: D1 nach links u. nach unten
'Modul des Bearbeitungsblattes
Dim strName As String, strBlatt As String, strRange As String
Sub holen()
Dim ZellName As Name
For Each ZellName In ThisWorkbook.Names
If ZellName.Name = Range("A1").Value Then
strName = ZellName.RefersToRange.Address(0, 0, xlA1, True)
strBlatt = Split(Split(strName, "!")(0), "]")(1)
strRange = ZellName.RefersToRange.Address(0, 0, xlA1)
Exit For
End If
Next
If strName "" Then
Range("D1").Resize(Range(strRange).Rows.Count, Range(strRange).Columns.Count) = _
Worksheets(strBlatt).Range(strRange).Value
End If
End Sub
Sub zurück()
Worksheets(strBlatt).Range(strRange).Value = _
Range("D1").Resize(Range(strRange).Rows.Count, Range(strRange).Columns.Count).Value
Range("D1").Resize(Range(strRange).Rows.Count, Range(strRange).Columns.Count).Clear
strName = ""
End Sub
Gruß Gerd