---

Hallo Leute,

Ich möchte verschiedene Werte aus verschiedenen Blättern in ein Übersichtsblatt übertragen.
Ich weiß wie man einen Wert aus einem anderen Blatt übernimmt:
z.B. ='9319'!F24 wobei 9319 der Blattname ist.

Ich möchte nun den gleichen Wert aus andern Blättern übernehmen!
Damit ich nicht jedes mal den Blattnamen von Hand eintragen muß möchte ich diesen über eine Formel herholen d.h. ich Schreibe in die Spalte A den Blattnamen und möchte, daß dann in den anderen Spalten für den Blattnamen den Wert aus der Spalte A eintragen (ich hab das schon versucht mir den gängigen Methoden, bin aber immer gescheitert!

Weiß von euch jemand eine Möglichkeit?

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mike,

ich weiss nicht ob ich's 100% verstanden habe,
aber erstmal den Blattnamen brauchst Du nicht per Hand eingeben

drück' mal: '=' und clicke nun auf ein Blattregister und dann in eine Zelle und Enter

HTH
Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder meinst Du sowas?
kopier das mal in ein Modul & > Makro ausführen

Sub blattname1()
Dim reg As String
reg = ActiveSheet.Name
Range("A1").Value = reg
End Sub

oder

Sub blattname2()
Range("A1").Value = ActiveSheet.Name
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

last but not least

=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

Hallo Nancy,

Danke für deine Antworten - anbei habe ich ein Beispiel angehängt.
Vielleicht wird damit klarer, was ich gemeint habe.

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

Hallo Mike,

ich sende dir dein Beispiel mit einem Code zum Schreiben der Werte.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

... und noch eins

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Pablo und Nancy!

Ich bin begeistert! Ihr habt die Aufgabe beide gelöst!

Wäre es unverschämt noch eine kleine Beschreibung zum Makro zu verlangen  ? Ich bin in VB relativ unbedarft und müsste mich sonst mühsam durchkämpfen. (Ich möchte das Beispiel ja auf meinen Anwendungsfall umprogrammieren!)

Auf jeden Fall vielen Dank für euere Hilfe!

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

text.txt

Hi Mike,

habe mal kurz versucht Pablos Code zu kommentieren,
ansonsten, geh im VBE (Alt+F11) auf Ansicht Direktfenster
und tippe mal zB
?activecell.adress  oder
?activecell.formular1c1

HTH Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

da hat wohl der Kopierteufel zugeschlagen,
die letzten beiden Einser müssen natürlich 3+4 lauten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

eines noch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von pablo:
eines noch

---

SUPER!

Damit muß ich ja nichts mehr programmieren! 

Nur eine Frage noch - wie kann ich die Anzahl der Spalten verringern?
Ich brauch nur Werte bis Spalte F - wenn ich die anderen einfach lösche, dann kommt eine Fehlermeldung.

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

Hallo Mike,

wenn du die ganzen Spalten löscht, dann geht es, ich schick dir noch eines mit einer Abfrage, da ist es egal.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von pablo:
Hallo Mike,

wenn du die ganzen Spalten löscht, dann geht es, ich schick dir noch eines mit einer Abfrage, da ist es egal.

pablo

---

Hallo Pablo,

Jetzt funktioniert alles! Vielen Dank nocheinmal für deine Hilfe!

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

3D_Bezug.zip

Hallo Leute,

kommt zwar etwas spät, aber besser als nie.
Wenn Mike das braucht, was ich denke, geht das ganz ohne Makro. Man braucht einen sogenannten 3D-Bezug.
Ist in der Office-Hilfe unter der Überschrift

"Erstellen eines Bezugs zu derselben Zelle oder demselben Bereich in mehreren Blättern" mit dem Suchbegriff "3D"

in der Office-Hilfe zu finden. Dort ist auch die genaue Vorgehensweise zum Erstellen solcher Bezüge beschrieben.

Die Formeln dieser 3D-Bezüge lassen sich auch kopieren bzw. "Auto-Ausfüllen", da in der Formel schlussendlich wieder eine Zellbezug drinsteht, der wie in Excel üblich mitkopiert wird.

Damit kann man für eine Formel Werte aus der jeweils gleichen Zelle aus verschiedenen Arbeitsblättern verwenden. Anbei ein Beispiel: Ich möchte von 3 Arbeitsblättern jeweils den Wert aus Zelle C5 und diese 3 Werte summieren.

Ich hoffe, ich hab' das einigermaßen verständlich rübergebracht.

Ciao,
WolfgangE

[Diese Nachricht wurde von WolfgangE am 01. Oktober 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

N' Abend Wolfgang,

ich bin ja auch nicht gleich für die 'vba-Keule',
aber Mike wollte nicht die 3 vertikalen Werte summieren,
sondern die Werte nebst zugehörigen Tabellennamen horizontal listen,
anyway, aber irgendwo hast Du schon recht, excel kann dermassen tiefgründig sein...

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von startrek:
N' Abend Wolfgang,

ich bin ja auch nicht gleich für die 'vba-Keule',
aber Mike wollte nicht die 3 vertikalen Werte summieren,
sondern die Werte nebst zugehörigen Tabellennamen horizontal listen,
anyway, aber irgendwo hast Du schon recht, excel kann dermassen tiefgründig sein...

lg Nancy

---

So ist es - ich habe auch keinen Weg gefunden dies mit einer Excelfunktion zu machen! Das Makro funktioniert dafür einwandfrei.

Nochmals Danke an alle!

------------------
Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

Hallo Pablo,
Gibt es auch eine möglichkeit die erste Zeile des Beispiels als Hyperlink dazustellen, so das man dann direkt auf das Blatt kommt?

Vielen Dank fürŽs Lesen

gruss
Primus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Primus,

und natürlich erstmal willkommen :-)

Bin zwar nicht Pablo;-) aber suchst Du [ganz grob] sowas:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Row > 2 Then
    On Error Resume Next
    If ActiveCell <> "" Then Sheets(ActiveCell.Value).Select
  End If
End Sub

---

Das Ganze ins Codefenster der Tabelle'Übersicht' unter Pablos Sub.

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von startrek:
Hallo Primus,

und natürlich erstmal willkommen :-)

Bin zwar nicht Pablo;-) aber suchst Du [ganz grob] sowas:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Row > 2 Then
    On Error Resume Next
    If ActiveCell <> "" Then Sheets(ActiveCell.Value).Select
  End If
End Sub

---

Das Ganze ins Codefenster der Tabelle'Übersicht' unter Pablos Sub.

lg Nancy

---

Hallo auch und danke für die schnelle Antwort,
ja sieht gut aus,
aber funktioniert nicht wenn die Blätter "Zahlen" haben oder kann ich das irgendwie ändern? Ich habe leider "noch" nicht die Ahnung davon!

gruss
Primus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ah, okay, da kommt er wohl mit dem Index durcheinander ;-)

tausche diese Zeile/Ausdruck:

Code:

---

If ActiveCell <> "" Then Sheets(ActiveCell.Value).Select

---

gegen dieses:

Code:

---

If ActiveCell <> "" Then Sheets(CStr(ActiveCell.Value)).Select

---

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

klappt PERFEKT,
ich ziehe meinen Hut vor Dir!

In 100-150 Jahren werde ich das wohl auch können...hoffe ich :-)

Nochmals VIELEN DANK!!!

gruss
Primus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Büdde büdde,

BTW nicht schwarzmalen, teil das Ganze durch 100 ;-)

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP