Re: ZellenNAME erfassen
08.10.2002 19:48:51
Hajo_Zi
Hallo MarcusMit VB kenne ich mich nicht so aus in Excel so
185. verwendete Namen finden
mit folgender Makrolösung kannst Du Dir alle verwendeten Namen in der Tabelle rausschreiben lassen.
Sub AlleNamenProtokollieren()
Dim benannteBereiche As Object
Sheets("Tabelle1").Activate
Range("A1").Select
For Each benannteBereiche In ActiveWorkbook.Names
ActiveCell.Value = benannteBereiche.Name
ActiveCell.Offset(0, 1).Value = ActiveWorkbook.Names.Item(benannteBereiche.Name)
ActiveCell.Offset(1, 0).Select
Next
End Sub
Möchtest Du alle Namen in der Tabelle markieren, verwendest Du folgende Syntax:
Sub AlleNamenMarkieren()
Dim VerName As Name
For Each VerName In ActiveWorkbook.Names
Range(VerName).Select
Next VerName
End Sub
Gruß hajo