Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1324to1328
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
Inhaltsverzeichnis

Match Funktion in Makro einbauen

Match Funktion in Makro einbauen
09.08.2013 15:58:36
Mareike
Hallo zusammen,
ich habe begonnen ein Makro zu schreiben, um aus einem Arbeitsblatt wenn sich dort rote oder Orangene Zellen befinden diese in ein anderes Arbeitsblatt zu kopieren. In dem zweiten ARbeitsblatt sollen die Kopierten Zellen dann aber je nach zugehöriger ID auch an die richige Stelle kopiert werden.
Ich hänge jetzt noch fest bei der Match Funktion. Ich weiß leider nicht wie man diese Funktion noch in mein Makro einbaut.
Als beispiel habe ich zwei Dateien hochgeladen. Aus der Datei vergleich.xlsm sollen die Texte bei Einfärbung in die Datei kopierMakro2 eingefügt werden. Als beispiel habe ich in diese Datei schon eingefärbte Zellen eingefügt.
https://www.herber.de/bbs/user/86780.xlsm
https://www.herber.de/bbs/user/86781.xlsm
Vielleicht kann mir ja jemand weiterhelfen.
Dankeschön,
Mareike
Der Derzeitige Code sieht so aus, und macht garnichts ;-):
Sub VUI_MoveRedAndOrange()
Dim rng As Range, vRow
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim sh4 As Worksheet
Set sh1 = Workbooks("kopierMakro2.xlsm").Sheets("Tabelle1")
Set sh2 = Workbooks("kopierMakro2.xlsm").Sheets("Tabelle2")
Set sh3 = Workbooks("vergleich.xlsm").Sheets("Tabelle1")
Set sh4 = Workbooks("vergleich.xlsm").Sheets("Tabelle2")
For i = 1 To 50000
Vergleich1 = sh2.Cells(i, "A")
Vergleich2 = sh4.Cells(i, "A")
Farbe = sh2.Cells(i, "F").Interior.ColorIndex
Select Case Farbe
Case Is = 3 'rot
Teil1 = sh2.Cells(i, "F")
Case Is = 44 'Orange
Teil2 = sh2.Cells(i, "F")
'    Select Case Vergleich
Case Is = Vergleich1 = Vergleich2
sh4.Cells(i, "F") = Teil1
sh4.Cells(i, "F") = Teil2
'               End Select
End Select
Next i
'For i = 1 To 50000
'    Farbe = sh1.Cells(i, "F").Interior.ColorIndex
'    Select Case Farbe
'        Case Is = 255 'rot
'            Teil1 = sh1.Cells(i, "F")
'          sh3.Cells(i, "F") = Teil1
'          Case Is = 49407 'Orange
'        Teil2 = sh1.Cells(i, "F")
'         sh3.Cells(i, "F") = Teil2
'   End Select
'   Next i
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das Pgm tut schon was, ...
09.08.2013 17:10:29
Luc:-?
…Mareike;
es liest zyklisch die ZellFarben in Farbe und, wenn's passt den ZellWert in Teil1. Aber das ist schon alles. Nichts zu sehen von Kopie in andere Datei.
Gruß Luc :-?
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige