Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

viele Bereiche m.VBA benennen, mit Kamera kopieren

viele Bereiche m.VBA benennen, mit Kamera kopieren
26.03.2016 13:39:36
MB12
Hallo zusammen,
ich sitze mal wieder ratlos da:
Ich möchte mit VBA
ca 40 Bereiche benennen, z.B. A2:C7, Name des Bereichs=erste Zelle im Bereich; hier: A2 = "Phase_FP"
Die Bereiche haben eine unterschiedliche Anzahl von Zeilen; davor und danach folgt immer eine Leerzeile; es geht immer um die Spalten A:C
jeder Bereich korrespondiert mit einem Blattnamen, aber ohne "Phase_"
dann mit Kamera in korrespondierendes Blatt (hier: "FP") ab Zelle B2 einfügen, damit sich die Inhalte bei Änderung der Quelle automatisch anpassen.
Ich weiß nur etwas von "PasteSpezial", aber dann verließen sie ihn....
kleine Datei habe ich beigefügt:
https://www.herber.de/bbs/user/104611.xlsx
Wäre ausgesprochen dankbar für Eure Hilfe.
Beste Grüße und ein schönes Osterwochenende
Margarete

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Kamera?
26.03.2016 15:16:12
Michael
Hi Margarete,
ich schon wieder...
Die "Kamera" hatte ich schon früher...
https://www.herber.de/forum/messages/1483115.html
... kritisch beäugt.
So schön die ist (man kann Wertebereiche als "Grafik" einfügen, ohne sich um Formatierungen wie Spaltenbreiten kümmern zu müssen), so sehr erweist sie sich als Bremse - siehe bitte hierzu den Artikel:
http://www.online-excel.de/excel/singsel.php?f=192
Ich habe Dir deshalb ein kleines Makro geschrieben, das entsprechende Blätter erzeugt ...
(falls sie nicht vorhanden sein sollten - das ist übrigens ein weiterer der vielen Wege, das mit den Blättern in den Griff zu bekommen: alle Namen einlesen, in eine geeignete Speicherstruktur stecken (in diesem Fall einen schlichten String) und letztere auf das Vorhandensein des Namens prüfen)
... den jeweiligen Bereich dorthin kopiert UND Formeln mit Bezug aufs Ursrpungsblatt einfügt.
Damit hast Du auch "immer aktuelle Werte" in den einzelnen Blättern, aber ohne Kamera.
Zwei Schönheitsfehler: die Spaltenbreite stimmt nicht ohne Weiteres, und die Formel könnte man noch sinngemäß um Wenn ungleich leer dann Wert sonst leer ergänzen, damit die blöden Nullen weg sind.
Das ist aber nur Feinarbeit, FALLS Du mit so einer Lösung leben kannst.
Datei: https://www.herber.de/bbs/user/104612.xlsm
Schöne Grüße,
Michael

Anzeige
AW: Kamera?
26.03.2016 16:12:58
MB12
Hallo Michael,
hätte ich geahnt, dass du dich wieder mit meiner Frage beschäftigen wirst, hätte ich diese völlig anders formuliert.
Aber nachdem du dir diese Mühe gegeben hast - mit einem wirklich guten alternativen Konzept - muss ich erst mal nachdenken, wie ich meins darauf einstellen kann. Mit einer (einer?) Rückfrage kannst du jetzt schon rechnen....
Erst mal vielen Dank!
Grüßle aus dem "Hohenlohischen"
Margarete

AW: Kamera?
26.03.2016 16:46:00
Michael
Hi Margarete,
"Grüßle" is ja süß...
Mir ist jetzt doch noch was eingefallen: die jeweils zweiten Blätter werden ja eigentlich doch nur für die Druckausgabe verwendet, oder?
Vielleicht ist eine ganz andere Vorgehensweise denkbar, so etwa in dem Sinne wie bei einem Serienbrief, wie man ihn von Word her kennt.
Soll heißen: Du wirfst jedes zweite Blatt (die "Kopien") raus und legst Dir EINMAL so etwas wie ein Ausgabeformular an, das dann per Makro (oder mit geeigneten Formeln) erst zu dem Zeitpunkt mit Daten versehen wird, wo Du es benötigst - sei es für einen Ausdruck oder allg. gesprochen eine "Ansicht".
Wenn man das geschickt programmiert, flutscht das auch: Excel schaufelt Daten immer schneller als der Drucker arbeitet...
Ja, naja, laß es Dir mal durch den Kopf gehen - ich bin die nächsten zwei, drei Tage eher nicht am Rechner.
Ade aus N,
Michael
(ich hatte zuerst "servusla" da stehen, aber weil das der Bembers überstrapaziert, habe ich's wieder gelöscht: den Franken graust's, wenn er sich selber hört)
oder aa net: https://www.youtube.com/watch?v=4l26ILG4dd4

Anzeige
AW: Konzept
26.03.2016 19:58:41
MB12
Hallo du N*bercher,
woher weißt du, was ich eigentlich wollte? Habe hierzu aber keine Antwort erhalten.
Thema Druck mit Button per VBA 1482951 2016-03-19 08:40:20 (noch etwas unausgegoren)
Quote: Noch komfortabler wäre, wenn ich gar keine Zusatzblätter erstellen müsste. Unquote
Jetzt aber mein Gesamt-Konzept, ohne Kamera, trotzdem mit Bereichsnamen:
1. Hauptblätter: alle mit CodeName like "Kd*". Das werde ich voraussichtlich immer wieder für Schleifen nutzen. Beispiel:
Kd01 (Budgetangebot)
im Moment bis Kd59, aber mit Lücken für zukünftige Hauptblätter
In jedem Blatt steht in B1 der Blatt Name mit =TEIL(ZELLE("Dateiname";$A$4);FINDEN("]";ZELLE("Dateiname";$A$4))+1;31))
2. Blatt "Bild" hier sind alle Grafiken drin
3. Zusatzblätter (Bewertungen) zu den Hauptblättern. Diese sollen aus den Hauptblättern erzeugt werden, damit der CodeName passt. Makro habe ich ja. Beispiel:
Kd60 (Budgetangebot2)
Die Blätter stehen nebeneinander. So kann ich sie gruppiert formatieren (Spaltenbreite, Zeilenhöhe usw). sowie einen bereits benannten Bereich mit Text und Grafiken (die Anleitung aus Blatt "Bild") einfügen.
Am Schluss mit VBA jeweils den zugehörigen Bewertungsbereich (einverstanden, nicht mit Kamera) einfügen. Da hier der Blattname (ohne "2"), in A1 steht mit =WENN(RECHTS(B1;1) = "2";LINKS(B1;LÄNGE(B1)-1);B1), könnte ich ihn so mit dem gleichnamigen benannten Bereich aus dem Blatt "Bereiche" vergleichen. Aber dazu benötige ich die gewünschten Bereichsnamen. Oder Vergleich Bereichsname mit Blattname"2" – was auch immer einfacher wäre.
4. Blatt "Bereiche". Hier wollte ich die jeweiligen Bereichsnamen erzeugen.
Für die letzten beiden Aktionen benötige ich Hilfe (Bereichsnamen erzeugen und die Bereiche in die jeweiligen Blätter einfügen)
Am Schluss sehen die Zusatzblätter so aus:
A1 Blattname des Hauptblatts
B1 Blattname
B3:F24 Anleitung
ab B25 die Bewertungsbereiche
alles klar? Inzwischen verstehe ich mich wenigstens selbst
Beste Grüße
Margarete

Anzeige
AW: Konzept - Korrektur
26.03.2016 20:31:37
MB12
Hallo Michael,
wo hatte ich meine Gedanken? Natürlich benötige ich bei deinem Vorschlag keine Bereichsnamen, die Lösung hast du ja schon geliefert. Jetzt muss nur noch geändert werden, dass keine neuen Blätter erzeugt werden, sondern die Daten in die bestehenden Zusatzblätter eingefügt werden.
Hier nochmal deine Datei:
https://www.herber.de/bbs/user/104617.xlsm
Beste Grüße, Margarete
*Es wird Zeit, mal was ganz andres zu tun*

AW: Ist ja lustig
26.03.2016 20:57:35
Werner
Hallo Margarete,
aus diesem aktuellen Thema halte ich mich raus. Erstens, weil Michael da ja schon dran ist und ich zweitens auch noch am Beginn meiner VBA Karriere bin.
Warum ich mich trotzdem melde? Weil ich hier: Like "Kd*" auch beteiligt war und ebenfalls aus dem Hohenlohischen grüße. Die Welt ist halt ein Dorf.
Gruß und viel Erfolg beim Ostereier suchen
Werner

Anzeige
AW: Ist ja lustig
27.03.2016 09:36:08
MB12
Hallo Werner,
na klar, weiß ich noch - ist ja schon sooo lange her. Das war eine große Hilfe.
Hasch dann heit au scho Gaggelich g'sucht?
Bin eigentlich eine Stuttgarter Pflanze, die vor Jahrzehnten beim Umzug hierher einen "Kulturschock" erlitten hatte, nachdem es plötzlich keine Gaggela mehr gab...
Schöne Ostertage noch
Margarete

299 Forumthreads zu ähnlichen Themen

Mittelwert aus Gruppierten Daten berechnen
Holger

Hallo
Eines schon mal Vorweg. Bin ein Excel Neuling und bitte daher um Verständnis, dass ich mit dieser wahrscheilich sehr einfachen Excel Problematik nicht weiterkomme.
Es geht um folgenden Tabellentyp:
http://www.bilder-space.de/show.php?file=F5RPKSe80cyrouj.jpg
Wie man sieht...
11.08.2008 13:29:00
Thread-ID: 1000835
6 Beiträge
Anzeige
Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Anzeige
Berechn.PivotField - Orientation per VBA = Fehler
Andreas

Hallo Herber Fans,
ich bin heute erstmalig mit einem Problem konfrontiert worden, welches keiner rationalen Logik zu folgen scheint. Auch im Forum habe ich dazu bisher nichts gefunden und wollte fragen, ob damit schon Erfahrung besteht, oder ich vielleicht auch einfach einen Denkfehler habe...
02.10.2008 15:17:00
Thread-ID: 1013901
3 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
PivotChart erstellen per VBA
Windalf

Hallo,
kann mir jemand sagen, wie man ne Pivotchart üblicher Weise per VBA erstellt.
Der Markorekorder hilft mir nicht weiter. Der malt dann nen leeres Chart....
Wenn man nen Pivotchart erstellt ist das nen "normales Chart" dem man die Range von dem was man malen will übergibt oder...
04.11.2008 11:05:00
Thread-ID: 1021518
2 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
1
8
5
2
2
12
1
2
6
4
1
5
2
7
4
8
2
1
2
6
3
3
2