gleiches Ergebnis bei unterschiedlichem VBA-Code
26.10.2005 16:12:11
Andrew
ich hänge an einer Sache fest:
mit dem VBA-Code lese ich Daten aus unterschiedlichen Spalten einer Excel-Tabelle in eine neue Excel-Tabelle ein.
Jedoch wird immer nur die gleiche Spalte kopiert, obwohl ich den Code angepasst habe.
Das heisst: In der Zeile, wo es heisst: ...Set rngU = Cells(rng.Row, 8)
habe ich für die nächste Spalte eingegeben
Set rngU2 = Union(rngU2, Cells(rng2.Row, 10)) also für die "8" eine "10"
Dennoch werden immer nur die Werte aus Spalte 8 ausgelesen!
Hat jemand eine Idee, woran das liegen könnte? Dafür wäre ich sehr dankbar.
Viele Grüße
Andrew
hier der VBA-Code:
Sub Makro1()
'Spalte B
Dim rng As Range, rngU As Range
Dim wkbNew As Workbook
For Each rng In Range("G9:G636")
If rng = "+" Then
If rngU Is Nothing Then
Set rngU = Cells(rng.Row, 8)
Else
Set rngU = Union(rngU, Cells(rng.Row, 8))
End If
End If
Next
If Not rngU Is Nothing Then
Set wkbNew = Workbooks.Add
rngU.Copy wkbNew.Sheets(1).Range("A7")
End If
Set rngU = Nothing
Set wkbNew = Nothing
Close
'Spalte C
Dim rng2 As Range, rngU2 As Range
Dim wkbNew2 As Workbook
For Each rng2 In Range("G9:G636")
If rng2 = "+" Then
If rngU2 Is Nothing Then
Set rngU2 = Cells(rng2.Row, 10)
Else
Set rngU2 = Union(rngU2, Cells(rng2.Row, 10))
End If
End If
Next
If Not rngU2 Is Nothing Then
Set wkbNew2 = Workbooks.Add
rngU2.Copy wkbNew2.Sheets(1).Range("A7")
End If
Set rngU2 = Nothing
Set wkbNew2 = Nothing
close
Windows("Mappe4.xls").Activate
End Sub