Office: alle Excel Workbook Namen als Variablen übergeben

xiaotuo · 4. August 2013

Hallo,

Ich möchte gerne alle Namen, die ich in Excel definiert habe, als Variablen definieren. Im meinem Workbook habe ich mehrere hundert Namen. Ich suche nach einer eleganten Lösung (z.B. For Each... Next), um alle Namen als Variablen (in Power Point) zu übergeben. Dabei sollen die Variablen den gleichen Namen wie die Namen im Workbook haben. Gibt da vielleicht einen Trick, oder muss ich das in mühevoller Einzelarbeit eingetippt werden?

Vielen Dank und Gruss!

:)

Hasso · 6. August 2013

Hallo xiaotuo,

z.B. so: Code:

Option Explicit

Sub NamenAuslesen()

Dim nmeNamen As Name
Dim intZaehler As Integer
Dim intNamen As Integer
Dim strNamen() As String

intZaehler = 0
intNamen = ActiveWorkbook.Names.Count
ReDim strNamen(intNamen)

For Each nmeNamen In ActiveWorkbook.Names
strNamen(intZaehler) = nmeNamen.Name
Debug.Print strNamen(intZaehler)
intZaehler = intZaehler + 1
Next nmeNamen

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xiaotuo · 6. August 2013

Hallo Hasso,

Ich habe das gleich mal probiert. Leider hat sich noch nicht der erhoffte Erfolg eingestellt, oder ich habe was falsch gemacht. Im Workbook habe ich 3 Namen definiert: name1, name2 und name3, die die werte 1, 2 und 3 haben. Ich habe Deinem Programm noch ein "MsgBox name1 & name2 & name3" hinzugefügt. Die Variablen kennt VBA aber leider noch nicht(?).

Danke und Gruss

Hasso · 6. August 2013

Hallo xiaotuo,

Im Workbook habe ich 3 Namen definiert: name1, name2 und name3, die die werte 1, 2 und 3 haben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das verstehe ich noch nicht ganz. Hast du die Namen für einzelne Zellen oder für Bereiche vergeben? Ich glaube ich habe noch nicht ganz verstanden, was du eigentlich möchtest. Einmal ist von Variablen aus den Namen die Rede, dann von Werten.

Mein gerne wiederholter Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der zu sehen ist, worin das Problem besteht und wie das Ergebnis aussehen soll, erhöht die Chance auf eine befriedigende Antwort ungemein!
Ich habe keine Lust, eine eigene Datei auf Grund deiner Beschreibung zu erstellen, die dann vielleicht ungefähr das macht, was du möchtest. Du hast diese Datei schon, also lade sie bitte hier hoch.

Anbei mal eine Beispielmappe von mir, in der ich drei Namen definiert habe, die jetzt in einer MsgBox ausgegeben werden. Code:

Option Explicit

Sub NamenAuslesen()

Dim nmeNamen As Name
Dim intZaehler As Integer
Dim intNamen As Integer
Dim strNamen() As String
Dim strText As String

intZaehler = 0
intNamen = ActiveWorkbook.Names.Count
ReDim strNamen(intNamen)

For Each nmeNamen In ActiveWorkbook.Names
strNamen(intZaehler) = nmeNamen.Name
strText = strText & strNamen(intZaehler) & vbCrLf
intZaehler = intZaehler + 1
Next nmeNamen
MsgBox "Alle Namen: " & vbCrLf & strText
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber ich fürchte, das ist nicht das, was du suchst.

xiaotuo · 6. August 2013

Hallo,

Entschuldige, es war vielleicht doch nicht so eindeutig wie ich dachte. Anbei die ein Code in der umständlichen Variante. Die Namen sind hier nur beispielhaft als name1, 2 und 3 benannt. In Wirklichkeit möchte ich ja alle (diverse) Namen im Workbook als String verfügbar machen.

Danke im Voraus!

Code:

Sub namen()
Dim name1 As String
Dim name2 As String
Dim name3 As String

name1 = ActiveWorkbook.Names("name1").Value
name1 = Range(name1)

name2 = ActiveWorkbook.Names("name2").Value
name2 = Range(name2)

name3 = ActiveWorkbook.Names("name3").Value
name3 = Range(name3)

MsgBox "name1 wert=" & name1 & " name2 wert=" & name2 & " name3 wert=" & name3

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

namen.xlsm

EarlFred · 6. August 2013

Hallo Grussl,

variable Variablennamen, die Du forderst, sind so leicht nicht umsetzbar. Hierfür wären eher andere Datenobjekte wie Dictionary, Collection, Arraylist u. ä. geeignet.
Was meinst Du dann mit "als Variable an PowerPoint übergeben"?
Mach's mal bitte etwas konkreter.

Muss es denn unbedingt VBA sein? Bei Excel 203 konnte man über Einfügen/Namen/Einfügen.../Liste einfügen alle Namen der Mappe mit dazugehörigen Bezügen auflisten lassen. Das kannst Du dann auch in Deine Folie kopieren, falls Du das vorhast.

Grüße
EarlFred

xiaotuo · 6. August 2013

Hallo,

Ja, ich möchte alle Informationen, die in Workbook.names stehen in eine PPT überführen und dort damit einige Tabellen füllen. Beim Auflisten müsste ich mir die Werte dann suchen und zuordnen. Es wäre natürlich praktischer, wenn ich mit gleichnamigen (name=Workbook.names Name) Stringvariablen arbeiten könnte. Dann bräuchte ich aber variable Variablen, wie Du schon sagtest. Mit der Auflistmethode könnte ich mir natürlich auch die Variablendefinition per Code oder mit Excel und in PPT kopieren...

Danke und Gruss

EarlFred · 6. August 2013

Hallo Grussl,

gehen tut "alles" - "irgendwie" oder "ganz einfach".

in eine PPT überführen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau an diesem Punkt ist es noch unklar. Was soll passieren - und WIE sollen die Informationen von Excel nach PowerPoint kommen? Welches Programm soll steuern, wo und wie sollen die Werte übergeben werden? Vielleicht ist alles viel leichter (oder doch komplizierter), als es erscheint.

Du kannst recht einfach aus PP heraus eine Excelinstanz eröffnen, dort Deine gewünschte Datei öffnen und aus dieser direkt die Namen auslesen und dann in PP "verwursten".
Wie die Datenobjekte funktionieren, die ich vorgeschlagen habe, findest Du überall im Netz - schon einmal nachgeschaut?
Ich spare mir konkrete Codes, bis ich verstanden haben, was nun genau gewünscht ist. Eine Beispieldatei könnte Licht in Dunkel bringen.

Grüße
EarlFred

xiaotuo · 7. August 2013

Hallo,

Es ist so: Power Point soll steuern und die Daten (über den Link Workbook.names) finden. Da ich sehr viele Names in der Exceldatei definiert habe, hatte ich die Idee mit der dynamischen Erzeugung von Strings.

Ich habe aber herausgefunden, dass es doch sinnvoller ist, sich per VBA alle Workbook.names in einer Tabelle auflisten zu lassen und den Code dann per Excel zu schreiben. In den Workbook.Names stehen nähmlich auch jede Menge andere unbrauchbare Informationen, wie Druckbereiche usw. Die kann man so selbstständig herausfiltern.

Danke für die Hinweise!

EarlFred · 7. August 2013

Hallo Grussl,

Du sprichst in Rätseln!
Schlag Dir Deine "dynamischen Strings" aus dem Kopf - ich glaube, Du denkst zu kompliziert (oder beschreibst Deine Aufgabe nicht richtig).

Schnell hingeklimpert, um die Namen aller benannten Bereiche einer Mappe als Liste im Direktbereich ausgeben zu lassen:
Code:

Option Explicit

Sub test()
Dim xlApp As Object, n As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
With xlApp.workbooks.Open("MeinPfad\MeineDatei.xls")
For Each n In .names
Debug.Print n.Name
Next n
.Close savechanges:=False
End With
xlApp.Quit
Set xlApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

xiaotuo · 8. August 2013

Ich habe das jetzt so geloest (unten nur ein kleiner Auszug). Die Names habe ich mir wie vorher beschrieben in einer Tabelle auflisten lassen und aufgrund der Vielzahl den Code per Excel geschrieben.

Code:

Public ghv1 As String
Public ghv2 As String
Public ghv3 As String
Public ghv4 As String
Public ghv5 As String
Public ghv6 As String

sub xlsladen
(exceldatei öffnen...)

call vardef
call tableimport

(exceldatei schließen)
end sub

Sub vardef()
'Befüllen der Variablen
ghv1 = myWorkbook1.Names("ghv1").RefersToRange.Value
ghv2 = myWorkbook1.Names("ghv2").RefersToRange.Value
ghv3 = myWorkbook1.Names("ghv3").RefersToRange.Value
ghv4 = myWorkbook1.Names("ghv4").RefersToRange.Value
ghv5 = myWorkbook1.Names("ghv5").RefersToRange.Value
ghv6 = myWorkbook1.Names("ghv6").RefersToRange.Value
end sub

sub tableimport()
Dim pptTable
'Tabelle füllen
Set pptTable = ActivePresentation.Slides(1).Shapes("Table 1").Table

.Cell(1, 7).Shape.TextFrame.TextRange.Text = "GHV"
.Cell(2, 7).Shape.TextFrame.TextRange.Text = ghv1
.Cell(3, 7).Shape.TextFrame.TextRange.Text = ghv2
.Cell(4, 7).Shape.TextFrame.TextRange.Text = ghv3
.Cell(5, 7).Shape.TextFrame.TextRange.Text = ghv4
.Cell(6, 7).Shape.TextFrame.TextRange.Text = ghv5
.Cell(7, 7).Shape.TextFrame.TextRange.Text = ghv6

end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: alle Excel Workbook Namen als Variablen übergeben

alle Excel Workbook Namen als Variablen übergeben

alle Excel Workbook Namen als Variablen übergeben

alle Excel Workbook Namen als Variablen übergeben

alle Excel Workbook Namen als Variablen übergeben

alle Excel Workbook Namen als Variablen übergeben - Similar Threads - Excel Workbook Namen

Excel Termin in Outlook Kalender

Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Zellbezugfehler

Excel VBA Spalten mit Ordnerinhalt vergleichen

Registername übernehmen für Excel im O365

Befehl zum schliesen eines bestimmten Excel Workbook