Zellen Format mit Vergleichsschleife übernehmen
10.07.2013 11:29:39
Mareike
vielleicht finde ich ja hier Hilfe.
Ich habe ein Makro mit dem ich in einer Schleife einen Text aus einer Tabelle mit einer anderen vergleiche. Ist dieser Text derselbe wird der zugehörige Zelleneintrag in die Ursprungsdatei eingefügt.
Das klappt auch soweit. Nur leider wird nur der Text übernommen, nicht aber das Format der Zelle. Gibt es eine Möglichkeit mit der Schleife die ich unten stehen habe das Format aus dem Workbook VUI_table aus der Range("B4:B2500"), für den jeweiligen gefundenen Wert, mit zu übernehemen?
Ist meine Erklärung verständlich geschrieben?
Vielen Dank für die Hilfe.
Schöne Grüße, Mareike
For i = 12 To 50000
'Prompts update
If Cells(i, 36).Value = blank Then
'Do Nothing
Else
Cells(i, 38).Value = Application.Index(Workbooks(VUI_table).Sheets("Prompts NA").Range("B4:B2500"), Application.Match(Cells(i, 36).Value, Workbooks(VUI_table).Sheets("Prompts NA").Range("A4:A2500"), 0), 1)
End If