AW: Formatierung
13.09.2007 16:57:00
Tom
Danke mal vorab. Das paßt!
Wenn ich aber nun die Daten per u.a. Code in die 2.Tabelle (Übersicht) transferiere, ist die Formatierung in Tabelle2 nicht vorhanden - wie muß ich dann die Zellen in Tabelle2 (ÜBersicht) formatieren? @ "(A)" funktioniert dort nicht mehr ...
Sub Transferieren()
Sheets("Übersicht").Select
Range("c3:i9").Select
Selection.ClearContents
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim varRow As Variant, varCol As Variant
Set wksSource = Worksheets("Einzelaufstellung")
Set wksTarget = Worksheets("Übersicht")
Dim intRow As Integer
intRow = 3
Do Until IsEmpty(wksSource.Cells(intRow, 3))
varRow = Application.Match(wksSource.Cells(intRow, 2), wksTarget.Columns(2), 0)
If Not IsError(varRow) Then
varCol = Application.Match(wksSource.Cells(intRow, 3), wksTarget.Rows(2), 0) ' _
wksTarget.Rows(2)=Zeile 2, Tabelle2
If Not IsError(varCol) Then
wksTarget.Cells(varRow, varCol) = wksSource.Cells(intRow, 4) & " " & vbLf & _
wksSource.Cells(intRow, 5) & " " & vbLf & wksSource.Cells(intRow, 6) & " " & vbLf & wksSource.Cells(intRow, 7)
End If
End If
intRow = intRow + 1
Loop
Range("c2").Select
End Sub