Das Archiv des Excel-Forums
CopyPaste mittels VBA (Farbe,Inhalt kopieren)
- CopyPaste mittels VBA (Farbe,Inhalt kopieren) von Morf Daniel vom 07.10.2003 13:31:43
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von RAnton am 07.10.2003 14:01:05
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Lutz am 07.10.2003 14:21:12
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Daniel Morf am 08.10.2003 08:48:19
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Morf Daniel am 08.10.2003 11:11:52
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Lutz am 08.10.2003 12:26:20
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Morf Daniel am 08.10.2003 15:50:20
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Morf Daniel am 08.10.2003 15:50:20
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von Lutz am 08.10.2003 12:26:20
- AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren) - von RAnton am 07.10.2003 14:01:05
 |
Betrifft: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: 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
 |
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: RAnton
Geschrieben am: 07.10.2003 14:01:05
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
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: Lutz
Geschrieben am: 07.10.2003 14:21:12
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
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: Daniel Morf
Geschrieben am: 08.10.2003 08:48:19
Vielen dank euch beiden, ich habe es ausprobiert und es funktioniert bestens.
Gruss Daniel
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: Morf Daniel
Geschrieben am: 08.10.2003 11:11:52
Hallo Lutz,
ich haben den Code eingebaut und ausprobiert, aber bei mir passiert nichts. Was mache ich falsch?
Gruss Daniel
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: Lutz
Geschrieben am: 08.10.2003 12:26:20
Hi Daniel, was genau funzt denn nicht, kriegst Du ne Fehlermeldung ?
Gruß
Lutz
Betrifft: AW: CopyPaste mittels VBA (Farbe,Inhalt kopieren)
von: Morf Daniel
Geschrieben am: 08.10.2003 15:50:20
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
