Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte Kopieren mit VBA

Werte Kopieren mit VBA
Markus
Hallo zusammen,
ich habe eine Datei, aus der ich einige Werte in eine Zieldatei mit VBA kopiere.
Der Zielort hat eine Bedingte Formatierung.
Nach dem Kopiervorgang ist die Formatierung unwirksam.
Woran liegt das?
Wie kann ich das Makro vereinfachen, wenn ich z.Bsp.: B2:AA105 kopieren möchte.
Anleitung ist in der Datei, ich hoffe ihr kommt klar.
Danke.
Gruß Markus
https://www.herber.de/bbs/user/65757.xls
AW: Werte Kopieren mit VBA
11.11.2009 10:57:10
Markus
Hi Thorsten,
war leider nicht von mir!
Es gibt leider mehrere die Markus heißen.
Gruß Markus
AW: Werte Kopieren mit VBA
11.11.2009 10:30:31
Sven
Hi Markus, wenn Du die Wert mit der Syntax
Selection.PASTESpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
(entspricht "InhalteEinfügen) einfügst (anstatt einfach nur mit .paste), sollten die bestehenden Formatierungen erhalten bleiben.
Gruß, SVen
Anzeige
AW: Werte Kopieren mit VBA
11.11.2009 11:17:09
Markus
Hallo Sven,
funktioniert irgendwie nicht.
hier mein Kopiervorgang
sh.Range("G2:G21").Copy .Range("G2:G21")
sh.Range("G2:G21").Value = sh.Range("G2:G21").Value
Gruß Markus
AW: Werte Kopieren mit VBA
11.11.2009 13:09:42
Sven
Hallo Markus,
vielleicht bin ich etwas umständlich, aber ich würde das ganze so schreiben:
Sub Bereich_Kopieren()
Sheets("Tabelle1").Select
Range("G2:G21").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Der Bereich wird von "Tabelle1" nach "Tabelle2" kopiert. Dort habe ich eine bedingte Formatierung (ungleich 0) definiert. Die bleibt erhalten und springt auch an.
Hoffe das hilft.
Gruß, Sven
https://www.herber.de/bbs/user/65775.xls
Anzeige
AW: Werte Kopieren mit VBA
11.11.2009 13:31:35
Markus
Hallo Sven,
funktioniert leider nicht.
Schau doch mal in mein Beispiel, ich kopiere das ganze in eine andere Datei!
Gruß Markus
AW: Werte Kopieren mit VBA
11.11.2009 14:52:33
Sven
Ups, Deine Beispieldatei habe ich glatt übersehen ... allerdings (liegt vermutlich an mir) verstehe ich auch nicht ganz genau, wie sich das Makro mit Deinem Ausgangstext und den Angaben in der Tabelle verträgt ...
Vielleicht könntest Du einfach mal schreiben, was das Makro machen soll ... aber vielleicht sitze ich ja auch auf der Leitung.
Soweit ich Deinen Eingangstext richtig interpretiere soll doch ein Bereich aus Deiner Vorlage in alle Sheets eines anderen Workbooks kopiert werden, wobei das "Ziel" über Deine Userform/Inputbox ausgewählt wird, oder?
Grübelnd, Sven
Anzeige
AW: Werte Kopieren mit VBA
11.11.2009 16:17:00
Sven
Hm, schau mal ob es das trifft. Habe in der Anlage1 (bitte umbenennen in test.xls) jetzt ein Makro angelegt (aus Deinem geschnitzt, nebst Userform), das Dir aus Deiner Vorlage-Tabelle1 die Zellen G2:G21 rauskopiert und in alle Sheets des von Dir in der Userform benannten workbooks, jeweils in die Zellen G2:G21 einfügt. Als Ausnahme habe ich definiert, dass im Ziel-Workbook nicht in worksheets mit dem Namen "Vorgaben" einkopiert wird. Als Anlage2 habe ich die „Mappe2“ angehängt. In der Mappe2 habe ich jeweils für die Spalten G die bedingte Formatierung ungleich 0 formuliert. Beim einfügen bleibt die Formatierung erhalten, die Daten werden eingefügt und die Formatierung springt an ...
Für einen Testlauf muss die Mappe2, wie in Deiner Vorgabe, geöffnet sein (ginge aber auch anders, d. h. Du könntest das Ziel – Workbook auch über das Makro öffnen).
Ist das in etwa das was Du wolltest?
Gruß, Sven
https://www.herber.de/bbs/user/65779.xls
https://www.herber.de/bbs/user/65780.xls
Anzeige
AW: Werte Kopieren mit VBA
11.11.2009 20:43:50
Markus
Hallo Sven,
das Makro funktioniert folgender Maßen:
Es werden die gewünschten Zellen in die ausgewählte Datei in das Arbeitsblatt mit dem gleichen Namen
kopiert.
In der Quelldatei werden das bzw. die zu kopierenden Arbeitsblätter und das Blatt "Vorgaben" deshalb markiert.
Das Makro soll auch so funktionieren.
Der Fehler liegt vielleicht an der bedingten Formatierung, sobald ich in ein formatiertes Feld etwas eintrage
verschwindet die Formatierung.
Diese soll aber unbedingt erhalten bleiben.
Gruß Markus
AW: Werte Kopieren mit VBA
11.11.2009 21:02:03
Markus
Habe es gerade selber hinbekommen.
Bei der bedingten Formatiereung muß es heißen: Formel ist =D$23="X"
dann funktioniert es.
Wäre euch trotz dem dankbar wenn mir jemand die Formel vom eigentlichen Kopiervorgang
vereinfachen könnte.
Danke Gruß Markus
Anzeige
AW: Werte Kopieren mit VBA
12.11.2009 07:42:34
Sven
Ah jetzt ja! Wenn schon nicht geholfen dann wenigstens was gelernt. Sehr clevere Idee - und ich sehe auc nix, was man kürzen könnte (aber das will nix heißen ;-))
Gruß vom Sven
AW: Werte Kopieren mit VBA
12.11.2009 12:03:10
Markus
Hallo,
kaum ist ein Problem erldeigt tut sich das nächste auf, bei dieser Operation werden die Zellenformate mit
kopiert, wie kann man das unterbinden?
sh.Range("C62:C86").Copy .Range("A62:A86")
sh.Range("C62:C86").Value = sh.Range("A62:A86").Value
Danke, Gruß Markus
AW: Werte Kopieren mit VBA
12.11.2009 18:16:16
F1
Range("A62:A86") = sh.Range("C62:C86")
AW: Werte Kopieren mit VBA
17.11.2009 11:13:54
Markus
Hallo F1,
so funkts leider nicht, hat noch jemand eine Idee, hänge noch einmal das Makro an.
Danke.
Sub Uebernahme_ID()
Dim sh As Worksheet
UF_Dateiauswahl3.Show
If bolKopieren3 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name  "Vorgaben" Then
With Workbooks(strDateiName3).Sheets(sh.Name)
.Range("C62:C86") = sh.Range("A62:A86")
End With
End If
Next
Sheets("Tabelle1").Select
MsgBox " Daten wurden kopiert! " _
End If
End Sub

Anzeige
AW: Werte Kopieren mit VBA
17.11.2009 20:44:02
F1
Die Wertzuweisung ist ok, der Fehler liegt woanders in deinem Code.
F1

301 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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
7
4
1
4
2
5
1
2
1
6
6
2
17
6
6
6
6
2
3
5
6
7
2
4
2