Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.06.2025 13:53:13
Compilierungsprogramme
23.06.2025 10:14:14
Excel VBA Makro
23.06.2025 09:27:21
Reihenfolge in bedingter Formatierung verschiebt sich
22.06.2025 14:45:39
Eintragung per Userform
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CopyPaste mittels VBA (Farbe,Inhalt kopieren)

Forumthread: CopyPaste mittels VBA (Farbe,Inhalt kopieren)

CopyPaste mittels VBA (Farbe,Inhalt kopieren)
07.10.2003 13:31:43
Morf Daniel
Hallo zusammen,
leider habe ich im excel vba so meine probleme und auch nichts entsprechendes in den unterlagen gefunden.
Folgendes Problem habe ich:
Wenn ich auf dem aktiven Tabellenblatt "Tabelle1" in der activen Zelle einen Wert eingebe, z.b. "2" so sollte dieser Wert, der sich in einer Codetabelle in "Tabelle3" befindet den entsprechenden code sowie die farbe ausgeben.

Zelle A2 in Tabelle 3 enthält "2", Zelle B2 enthält den Code "2-34" sowie die Farbe "orange". Resultat sollte in der Tabelle 1 sein: active zelle enthält "2", die darunterliegende Zelle den Wert "2-34" sowie die Farbe "orange"
Vielen Dank zum voraus,
Daniel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Anwendung
Tags
#fehler #kopieren #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
07.10.2003 14:01:05
RAnton 

Sub test()
Hallo Daniel,
vielleicht hilft dir der untere Code weiter


Sub test()
Dim r, r1 As Range
Set r = Sheets("Tabelle1").Range("A1")
Set r1 = Sheets("Tabelle3").Range("A1")
r.Copy
r1.PasteSpecial xlPasteValues   ' Kopiert den Wert
r1.PasteSpecial xlPasteFormats  ' Kopiert das Format (also auch die Farbe)
Application.CutCopyMode = xlCut
End Sub





RAnton
Anzeige
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
07.10.2003 14:21:12
Lutz
Hallo Daniel,

ich nehme mal an, dass Du in Tabelle3 mehrere Codes und Farben hast.
Folgender Code sucht den in Tabelle1 eingegebenen Wert in Spalte A der Tabelle3 und gibt den Code der SpalteB sowie die Farbe aus.

Gruß
Lutz



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
i = Target.Cells
Set rng = Sheets("Tabelle3").Columns(1).Find(i, lookat:=xlWhole, LookIn:=xlValues)
Target.Offset(1, 0).Value = Sheets("Tabelle3").Cells(rng.Row, 2)
Target.Offset(1, 0).Interior.ColorIndex = Sheets("Tabelle3").Cells(rng.Row, 3).Interior.ColorIndex
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1

Anzeige
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
08.10.2003 08:48:19
Daniel Morf
Vielen dank euch beiden, ich habe es ausprobiert und es funktioniert bestens.
Gruss Daniel
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
08.10.2003 11:11:52
Morf Daniel
Hallo Lutz,
ich haben den Code eingebaut und ausprobiert, aber bei mir passiert nichts. Was mache ich falsch?
Gruss Daniel
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
08.10.2003 12:26:20
Lutz
Hi Daniel, was genau funzt denn nicht, kriegst Du ne Fehlermeldung ?

Gruß
Lutz
Anzeige
AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
08.10.2003 15:50:20
Morf Daniel
Hallo lutz,
nein das nicht. Wenn ich es über einen Button laufen lassen will passiert einfach nichts. Wenn ich die variable i anschaue ist diese leer.
gruss daniel

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 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
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
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 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
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

CopyPaste mittels VBA: Farbe und Inhalt kopieren

Schritt-für-Schritt-Anleitung

Um mit Excel VBA Farbe und Inhalt zu kopieren, kannst Du die folgenden Schritte befolgen:

  1. Öffne das Visual Basic for Applications (VBA) Fenster:

    • Drücke ALT + F11 in Excel.

  2. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projektfenster auf VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.

  3. Kopiere den VBA-Code: Füge diesen Code in das Modul ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   Dim i As Variant
   Set rng = Sheets("Tabelle3").Columns(1).Find(Target.Value, lookat:=xlWhole, LookIn:=xlValues)
   If Not rng Is Nothing Then
       Target.Offset(1, 0).Value = Sheets("Tabelle3").Cells(rng.Row, 2).Value ' Wert kopieren
       Target.Offset(1, 0).Interior.ColorIndex = Sheets("Tabelle3").Cells(rng.Row, 3).Interior.ColorIndex ' Farbe kopieren
   End If
End Sub

  4. Testen:

    • Gehe zurück zu Excel und gib in Tabelle1 einen Wert ein, der in Tabelle3 vorhanden ist. Der entsprechende Code und die Farbe sollten automatisch in die Zelle darunter eingefügt werden.

Häufige Fehler und Lösungen

  • Variable i ist leer:

    • Stelle sicher, dass der eingegebene Wert in Tabelle3 tatsächlich existiert. Der Code sucht nach einem exakten Treffer.

  • Keine Aktion beim Button-Klick:

    • Überprüfe, ob das Makro aktiviert ist und ob Du die richtige Zelle bearbeitest.

  • Fehlermeldungen:

    • Wenn Du eine Fehlermeldung erhältst, könnte dies an den falsch gesetzten Zellreferenzen liegen. Stelle sicher, dass die Namen der Tabellenblätter korrekt sind.

Alternative Methoden

Falls Du eine andere Methode bevorzugst, kannst Du auch die Copy- und PasteSpecial-Methoden verwenden, um die Werte und Formate zu kopieren:

Sub CopyPasteExample()
    Dim r As Range
    Set r = Sheets("Tabelle1").Range("A1")
    r.Copy
    Sheets("Tabelle3").Range("A1").PasteSpecial xlPasteValues ' Werte kopieren
    Sheets("Tabelle3").Range("A1").PasteSpecial xlPasteFormats ' Formate (Farben) kopieren
    Application.CutCopyMode = False
End Sub

Praktische Beispiele

  1. Wert und Farbe kopieren: Du kannst die Funktionalität implementieren, dass, wenn in Tabelle1 der Wert "2" eingegeben wird, der Code "2-34" und die Farbe "orange" aus Tabelle3 kopiert werden.

  2. Nur Farben kopieren: Wenn Du nur die Farbe einer Zelle kopieren möchtest, kannst Du den folgenden Code verwenden:

    Sub CopyOnlyColor()
   Dim sourceCell As Range
   Set sourceCell = Sheets("Tabelle3").Range("C2")
   Sheets("Tabelle1").Range("A2").Interior.Color = sourceCell.Interior.Color ' Nur die Farbe kopieren
End Sub

Tipps für Profis

  • Verwende Fehlerbehandlung: In VBA ist es wichtig, Fehler zu behandeln. Nutze On Error Resume Next, um sicherzustellen, dass das Programm nicht abstürzt, wenn ein Fehler auftritt.

  • Kombiniere Funktionen: Du kannst Funktionen kombinieren, um komplexere Aufgaben zu automatisieren, wie z.B. das Kopieren von Inhalten basierend auf mehreren Kriterien.

  • Dokumentation: Halte immer deine VBA-Programme dokumentiert, um zukünftige Änderungen zu erleichtern und anderen Nutzern zu helfen.

FAQ: Häufige Fragen

1. Wie kann ich VBA aktivieren?
Um VBA zu aktivieren, gehe zu den Excel-Optionen, wähle "Erweitert" und aktiviere die Makros.

2. Kann ich die Farben auch über eine bedingte Formatierung kopieren?
Ja, Du kannst auch bedingte Formatierungen verwenden, um Farben dynamisch zu ändern, je nach den Werten in den Zellen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige