Argument und Daten übertragen
13.10.2003 11:31:52
Andreas
ich habe wieder einmal ein kleines Problem.
Aus einer Tabelle will ich Daten verschiedener nicht zusammenhängender Zellen in eine andere Tabelle kopieren, dabei habe ich in einer bestimmten Zelle(A9) ein Argument nach dem es sich entscheiden soll ob die Daten in Tabelle 2 oder Tabelle 3 ... übertragen werden.
Anschliessend an die übertragenen Daten sollte auch noch das Datum an dem die Daten kopiert wurde stehen.
Die Daten übertragen habe ich folgend gelöst, aber wie bringe ich hier die Abfrage nach bestimmter Zelle mit ein?
Sub mehrfachauswahl()
Dim rngact As Range
Dim introw As Integer, intcol As Integer
With Worksheets("tabelle2")
If IsEmpty(.Cells(1, 1)) Then
introw = 1
Else
introw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngact In Range("a1,c2,e5,a6").Cells
intcol = intcol + 1
rngact.Copy .Cells(introw, intcol)
Next rngact
End With
Application.CutCopyMode = False
End Sub
Ich bin schon gespannt wie die Lösung aussieht.
Gruss Andreas