Das Archiv des Excel-Forums

Argument und Daten übertragen

Bild

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
Bild


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


Bild


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


Bild


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


Bild


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


 Bild