Ausgabe verändern!!
01.11.2012 09:46:36
Snewi
Hallo,
ich habe von Tino (Danke nochmal :-)) folgenden Code:
Sub ListeIds(oDic As Object)
Dim ArrData, ArrAus(), n&, nn&, nCount&
With Tabelle7
ArrData = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3)
End With
ReDim ArrAus(1 To UBound(ArrData), 1 To 3)
For n = 1 To UBound(ArrData)
If oDic.exists(ArrData(n, 1)) Then
nCount = nCount + 1
For nn = 1 To UBound(ArrData, 2)
ArrAus(nCount, nn) = ArrData(n, nn)
Next nn
End If
Next n
With Tabelle6
' Application.EnableEvents = False
.Range("C52:G" & Rows.Count).Clear
If nCount > 0 Then
With .Range("C52").Resize(nCount, 3)
.Value = ArrAus
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
.HorizontalAlignment = xlCenter
End With
End If
' Application.EnableEvents = True
End With
End Sub
Es wird nun das Ergebnis ab C52 in die nächsten 3 Spalten geschrieben!Ich möchte aber das Ergebnis von allen drei Spalten in verschieden Spalten ablegen und nicht hintereinander!
Z.B. 1 Spalte in C, 2 in E und 3 in G!
Geht das?
Gruß