Zellen aus kopiertem Tab-Blatt im "ÜbersichtsBlatt" :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Zellen aus kopiertem Tab-Blatt im "ÜbersichtsBlatt"

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 14.04.2008, 12:38

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 14.04.2008, 12:57

Hallo!

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

Hilft das?

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 14.04.2008, 13:58

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

Schnelles Beispiel.xls

Beschreibung:

Download

Dateiname:

Schnelles Beispiel.xls

Dateigröße:

32.5 KB

Heruntergeladen:

16 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 14.04.2008, 14:14

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 14.04.2008, 16:19

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 Wink

Gruß
Timi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 14.04.2008, 16:38

Hallo!

Zitat:

Ich hör schon das Klingeln in meinen Ohren, wie du mich verfluchst.

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.

Schnelles Beispiel-1.xls

Beschreibung:

Download

Dateiname:

Schnelles Beispiel-1.xls

Dateigröße:

57 KB

Heruntergeladen:

16 mal

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 15.04.2008, 12:32

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 15.04.2008, 15:16

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.

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 15.04.2008, 15:59

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

=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!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 15.04.2008, 16:02

Hallo!

Ungetestet:

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 15.04.2008, 16:58

Ungetestet - und ein Volltreffer! Ganz ohne Publikumsjoker!
Eine Meisterleistung! Wink

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 15.04.2008, 17:13

Hallo!

Meinst du sowas?

Code:

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

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 18.04.2008, 07:57

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 18.04.2008, 15:52

Hallo!

Zitat:

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.

Bei mir schon...

timi-2.xls

Beschreibung:

Download

Dateiname:

timi-2.xls

Dateigröße:

16.5 KB

Heruntergeladen:

11 mal

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 18.04.2008, 19:23

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Aus Zellen in Liste	eccgiraffe	Microsoft Excel Hilfe	4	29.08.2008, 09:12
	Daten von einem Blatt zum nächsten ko...	miriki	Microsoft Excel Hilfe	15	28.08.2008, 13:45
	Zellen vergleichen und auswerten	Christian 1969	Microsoft Excel Hilfe	8	26.08.2008, 12:33
	Daten kopieren und leere Zellen NICHT...	jani502	Microsoft Excel Hilfe	6	25.08.2008, 17:12
	Blöder Fehler bei Makro"copy"	Gomorra	Microsoft Excel Hilfe	1	25.08.2008, 10:32

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de