Das Archiv des Excel-Forums
Argument und Daten übertragen
Betrifft: Argument und Daten übertragen
von: Andreas
Geschrieben am: 13.10.2003 11:31:52
Hallo zusammen,
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
Betrifft: AW: Argument und Daten übertragen
von: ChrisL
Geschrieben am: 13.10.2003 13:19:42
Hi Andreas
Versuch mal so...
Option Explicit
Sub mehrfachauswahl()
Dim rngact As Range
Dim introw As Integer, intcol As Integer
Dim WS As Worksheet
If Range("A9") = "X" Then
Set WS = Worksheets("Tabelle2")
Else
Set WS = Worksheets("Tabelle3")
End If
With WS
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
Gruss
Chris
Betrifft: AW: Argument und Daten übertragen
von: Andreas
Geschrieben am: 13.10.2003 13:40:58
Hallo Chris,
deine Lösung funktioniert einwandfrei aber ich habe etwas übersehen, und zwar werden bei meiner Lösung die Formeln kopiert und ich benötige aber die Daten, hast Du dazu auch einen Ansatz?
Gruss und Danke Andreas
Betrifft: AW: Argument und Daten übertragen
von: ChrisL
Geschrieben am: 13.10.2003 13:58:49
versuch mal...
.Cells(introw, intcol) = rngact.Value
Gruss
Chris
Betrifft: AW: Argument und Daten übertragen
von: Andreas
Geschrieben am: 13.10.2003 15:11:19
Hallo Chris,
Ansatz ist richtig, heisst aber in diesem Fall .Cells(introw, intcol) = rngact.Value
Danke für die super Hilfe
Gruss Andreas