ich hänge etwas an der nachfolgenden Situation. Und zwar habe ich 28 TabBlätter und von TabBlatt 3 bis TabBlatt 28 kopiere wert jeweils aus Zelle G3, gehe dann zu TabBlatt1 und füge alle 25 kopierten Werte ab Zelle L3 bis L27 senkrecht ein.
Kann mir vielleicht dabei jemand helfen. Danke im Voraus!!!
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
schön das du mir helfen möchtest. Die Formel löst Bezugsfehler aus. Das kann vielleicht an meiner Beschreibung liegen.
Also in TabBlatt1 in Spalte E ab Zeile 3 sind die Namen der anderen Tabellenblätter bis Zelle E27 enthalten. D.h. nehme den Wert aus Zelle E3 usw., suche TabBlatt in selbige Mappe mit dem Namen und gehe zu dem TabBlatt und kopieren den Wert aus Zelle G3 und füge es in TabBlatt1 in Zelle L3 ein.
Ich hab von Formeln nicht soviel Ahnung und weiß nicht ob es mit einer Formel zu erledigen ist. Hoffe aber es trotzdem verständlich erklärt zu haben.
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Den Code müsste so abgeändert werden, dass für "Sheets("MMM").Select" es so aussehen sollte "Sheets(Tabelle Depot,Zelle E3).Select". Irgendwie mache ich immer einen Fehler.
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
15.10.2014, 17:02 (Dieser Beitrag wurde zuletzt bearbeitet: 15.10.2014, 17:02 von schauan.)
Hallo Bernie,
wir waren doch noch bei der Ursachenforschung für den Fehler im Ergebnis der Formel in L3 ...
Zum code, ich bleibe erst mal bei dem aufgezeichneten
Da warst Du fast schon fertig
Code:
Sub Makro8()
Sheets(Sheets("Depot").Range("E3")).Select
Range("G2").Select
Selection.Copy
Sheets("Depot").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Wenn Du auf dem Blatt Depot bleibst, kann man einiges rausnehmen.
Code:
Sub Makro8()
Sheets(Sheets("Depot").Range("E3")).Range("G2").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Hinweis: Die selektierte Zelle auf deinem Excel-Blatt Depot ist hoffentlich beim Start des Makro die richtige ... Ansonsten müsste man die im VBA-Code programmieren
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
bekomme Fehlermeldung, weiß leider nicht weiter deshalb hier meine Testmappe. In Tabelle Depot Zelle L3 habe ich einen Kommentar abgelegt der das was ich suche nochmal darstellt.
Danke schon mal im Voraus.
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
mal deine Mappe zurück. Ich habe es hier mal in der Tabelle Depot mit einem Ereignismakro gelöst und zwar mit einem Rechte-Maus-Klick. Aber teste mal selber.
sorry, das ist so ein Fall, mit dem man begründen kann, warum man die "Standardeigenschaften" nicht ohne Angabe im Code verwenden sollte.
Oft reicht Range("E3") und es wird der Wert ausgegeben, z.B. MsgBox Range("E3") gibt dir MMM aus.
Beim Selectieren des Blattes reicht das nicht. Hier brauchst Du
Code:
Sheets(Sheets("Depot").Range("E3").Value).Select
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
du erklärst das immer sehr anschaulich, so dass ich als VBA Laie es verstehen kann. Dafür nochmal Danke :15:
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.