Office: Zellen aus kopiertem Tab-Blatt im "ÜbersichtsBlatt&quot

Hallo zusammen!
Habe mir ein Muster-Tabellenblatt eingerichtet, welches ich von der Startseite per CommandButton( Neuer Kunde ) kopiere und hinter der letzten Tabelle einfüge( Quasi ein neues Tabellenblatt erstelle, wenn ich einen neuen Kunden anlegen will.) Das Tabellenblatt benennt sich mittlerweile mittels Eurer Hilfe auch selbstständig um( fortlaufend ). Nun hätte ich gerne, dass gewisse Zellen( insgesamt 7 ), während des ganzen Vorgangs des neu erzeugten Tabellenblatts auch auf meiner Übersichtseite in einer Reihe angezeigt werden. Hinzu kommt, dass diese Zellen beim nächsten neu erzeugten Tabellenblatt in der Übersichtseite genau unter diese Reihe angezeigt werden( und fortlaufend ). Somit hätte ich wichtige Positionen aus den neuen Kundenblätter auf einen Blick auf meiner Übersichtsseite.
Hier mein bisheriger Verlauf:

Private Sub CommandButton2_Click()
'
' Makro1 Makro
' Neuen Kunden anlegen und vorbereiten
'

'
Range("E19") = Range("E19") + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("2008-Muster").Select
Sheets("2008-Muster").Copy After:=Sheets(12)
ActiveSheet.Name = "2008-" & Sheets("2008-Muster").Range("C2").Text
ActiveSheet.Unprotect
ActiveSheet.Range("E26") = ActiveSheet.Name
ActiveSheet.Shapes("Text Box 6").Select
Selection.Characters.Text = "" & Chr(10) & "Muster"
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=2, Length:=6).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 100
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Delete
End Sub

Nun müssten 7 Zellen des neu erzeugten Tabellenblatts gleichzeitig auf meiner Übersicht in einer Reihe erscheinen und die gleichen 7 Zellen nach jedem neu erzeugtem Tabellenblatt sich darunter in einer Reihe anordnen.

Auweija, viel geschrieben, hoffentlich versteht ihr mein Problem.

Gruß Timi

 

Hallo!

Das sieht mir nach einer ähnlichen Problemstellung aus wie hier.

Hilft das?

 

Hallo Schatzi,
Hilft nicht so richtig! Du hattest mir doch letztens bei der fortlaufenden Nummerierung echt Prima geholfen. Dies ist im Moment wieder der gleiche Makro. Wollte ihn um diese gewisse Funktion wie ob. beschr. erweitern.
Gruß Timi

 

Hallo!

Theoretisch ist das schon dasselbe, aber was soll's...
Teste mal dies:

Code:

Private Sub CommandButton1_Click()
Dim Letzte As Integer
Letzte = Sheets("Übersicht").Range("B65536").End(xlUp).Row + 1
With Sheets("2008-Muster")
Sheets("Übersicht").Range("B" & Letzte & ":H" & Letzte) = WorksheetFunction.Transpose(.Range("E5:E11"))
Range("E19") = Range("E19") + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=1   'ist nicht nötig
.Select                                     'ist auch nicht nötig
.Copy After:=Sheets(3)
ActiveSheet.Name = "2008-" & .Range("C2").Text
ActiveSheet.Unprotect
ActiveSheet.Range("E26") = ActiveSheet.Name
End With
End Sub

 

Das sieht schon verdammt gut aus! Funzt auch ( im Prinzip ).
Leider werden Veränderungen auf der Kundenseite nicht parallel/zeitgleich in der Übersicht geändert. Hier müsste eine Kommunikation zwischen den beiden hergestellt werden. In meinem Beispiel standen dort: Herr; Fritz; Muster; Musterstraße; x; y; z; xyz;. Diese stehen jedoch zum Zeitpunkt der Neuanlegung noch nicht fest; werden erst später eingefügt und sollen mit der Übersicht verknüpft werden. Quasi sollen diese Verküpfungen zur Übersicht schon beim Neuanlegen erzeugt werden; werden von mir aber erst später ausgefüllt/beschrieben.

Ich hör schon das Klingeln in meinen Ohren, wie du mich verfluchst.
Bin leider kein Profi; ich excelementiere, um daraus zu lernen. Hab' mir auch schon ein dickes Buch gekauft. Excel ist einfach genial, wenn man's kann ;-)

Gruß
Timi

 

Hallo!

Nein, Spaß beiseite...

Dann würde ich einfach nur den Blattnamen per VBA in eine Hilfsspalte übernehmen, und die restlichen Werte per Formel holen.

Schau's dir mal an.

 

Hallo,
komme mit dem Befehl"INDIREKT" irgendwie nicht klar!
Bsp.

=WENN($A6="";"";INDIREKT("'"&$A6&"'!E"&SPALTE(F$1)))

Ich bekomme keinen Bezug auf meine neu erstellte Tabelle. Bin nur am tüfteln! WENN-Funktion ist klar. Hier: wenn nix dann nix. Tabellenblattbezug anhand A6 auch klar. Dann kommt's für meine Otto-Normalverbraucher-Kenntnisse knüppeldick.

Übersichtseite (E6) müsste sich nach (E7) auf der Eingabeseite orientieren;
sowie (H6) nach (E8);
(K6) nach (E9);
(N6) nach SUMME(M:M);
(Q6) nach SUMME(N:N+P:P);
(T6) nach SUMME(T:T);
und (W6) nach SUMME(R:R)
_____________________________________________________________
Desweiteren, wäre es möglich, diese folgende Anweisung so zu gestalten/umzuändern, dass auf meiner Übersichtseite die neue Blattnummer als Hyperlink eingefügt wird?
Vielleicht sogar schon als fertig beschrifteter/konfigurierter, an die Zelle angepasster CommandButton. Das quasi Command-Buttons mit fortlaufender Beschriftung angelegt werden (Bsp. 2008-001; 2008-002; etc.) zum Aufrufen der gerade neu erstellten Seite.

Hier die Anweisung:

Private Sub CommandButton2_Click()
'
' Makro1 Makro
' Neuen Kunden anlegen und vorbereiten
'

'
Dim Letzte As Integer
Letzte = Sheets("Gesamtübersicht Aktivitäten").Range("B65536").End(xlUp).Row + 1
With Sheets("2008-Muster")
Sheets("Startseite").Select
Range("E19") = Range("E19") + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=1 'ist nicht nötig
.Select 'ist auch nicht nötig
.Copy Before:=Sheets(12)
ActiveSheet.Name = "2008-" & .Range("C2").Text
ActiveSheet.Unprotect
ActiveSheet.Range("E26") = ActiveSheet.Name
Sheets("Gesamtübersicht Aktivitäten").Range("B" & Letzte) = ActiveSheet.Name
End With
End Sub

Viele Grüße
Timi

 

Hallo!

INDIREKT ist eigentlich ganz einfach:
Innerhalb der Funktion baust du dir durch Verkettungen einen String zusammen:

=INDIREKT("'"&$A6&"'!E8")
liefert dir den Wert aus '2008-001'!E8 (wenn in A6 der Wert 2008-001 steht).

=SUMME(INDIREKT("'"&$A6&"'!M:M"))
liefert SUMME('2008-001'!M:M)

PS: Die Funktion SPALTE habe ich nur verwendet, damit meine Formel leichter nach rechts ausfüllbar ist.

 

Hallo,
hast Du hierfür 'ne Lösung, oder bin ich einfach nur zu blöd dafür :-?

=WENN($B6="";"";SUMME(INDIREKT("'"&$B6&"'!N:N";"'"&$B6&"'!P:P")))

gemäß dem Motto: =SUMME('2008-001'!N:N;'2008-001'!P:P)
Möchte zwei Spalteninhalte addieren
Alles andere klappt P-E-R-F-E-K-T!

 

Hallo!

Ungetestet:

SUMME(INDIREKT("'"&$B6&"'!N:N"))+SUMME(INDIREKT("'"&$B6&"'!P:P"))

 

Ungetestet - und ein Volltreffer! Ganz ohne Publikumsjoker!
Eine Meisterleistung! ;-)

Hättest Du noch 'ne Idee zu meiner zweiten Frage von heute 12:32Uhr?
sowas wie ein Hyperlink erzeugen. Oder verträgt sich dieser Hyperlink evtl. später nicht mit dem Zellbezug aus der Formel: =INDIREKT("'"&$A6&"'!E8")

Gruß Timi

 

Hallo!

Meinst du sowas?

Code:

=HYPERLINK("#'"&$A6&"'!E8";INDIREKT("'"&$A6&"'!E8"))

Also vorne das gleiche wie hinten, aber mit vorangestelltem # und ohne INDIREKT.

 

Hallo,
klappt nicht.
Es soll sich z.B. Zelle A6, welche sich automatisch nach jedem neuen Tabellenblatt benennt(hier 2008-001 und fortlaufend), auch automatisch als Hyperlink ausbilden.
Das tut sie leider nicht. Wenn ich diese Formel einfüge, steht bei mir eine 0(null) bereits in dieser Zelle und beim Erstellen des neuen Tabellenblatts orientiert sich das Makro an der nächsten, freien Zelle unterhalb und schreibt den Wert(hier die Kundennummer) in A7. Zudem bekomme ich Probleme mit dem "BEZUG". Vielleicht lässt sich dies auch durch eine Ergänzung im Makro realisieren?
Hier noch mal die Anweisung:

Private Sub CommandButton2_Click()
'
' Makro1 Makro
' Neuen Kunden anlegen und vorbereiten
'

'
Dim Letzte As Integer
Letzte = Sheets("Gesamtübersicht Aktivitäten").Range("B65536").End(xlUp).Row + 1
With Sheets("2008-Muster")
Sheets("Startseite").Select
Range("E19") = Range("E19") + 1
ActiveWindow.ScrollWorkbookTabs Sheets:=1 'ist nicht nötig
.Select 'ist auch nicht nötig
.Copy Before:=Sheets(12)
ActiveSheet.Name = "2008-" & .Range("C2").Text
ActiveSheet.Unprotect
ActiveSheet.Range("E26") = ActiveSheet.Name
ActiveSheet.Shapes("Text Box 6").Select
Selection.Characters.Text = "" & Chr(10) & "Muster"
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=2, Length:=6).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 100
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Delete
Sheets("Gesamtübersicht Aktivitäten").Range("B" & Letzte) = ActiveSheet.Name
End With
End Sub

Nicht erschrecken, die Anweisung wurde von mir in sofern noch ergänzt, da sie ein Textfeld beim Kopieren entfernen muß, auf dem die Bezeichnung:"MUSTER" steht.

Ansonsten funktioniert alles tadellos!

Viele Grüße

 

Hallo!

Bei mir schon...

 

Bei mir schon...

Habe mir nun eine neue Spalte in meine Tabelle eingefügt, um von dieser auf die mit den Kundenummern einen Bezug herzustellen. Das funktioniert natürlich auch bei mir. Ich dachte nur, dass sich die betr. Zelle schon automatisch beim Kopieren und neu anlegen als Hyperlink bildet.
Ist aber nix schlimm, hab' Euch / Dir viel zu verdanken, dass mein kleines aber feines Progrämmchen mittels Excel tadellos funktioniert. Hoffe, dass auch andere Forum-Besucher aus meiner Excelementiererei etwas gelernt haben.
Wünsche ein schönes Wochenende, das nächste Problemchen kommt bestimmt! Ist nur eine Frage der Zeit.
Gruß Timi