Argument und Daten übertragen

• Argument und Daten übertragen von Andreas vom 13.10.2003 11:31:52
  • AW: Argument und Daten übertragen - von ChrisL am 13.10.2003 13:19:42
    • AW: Argument und Daten übertragen - von Andreas am 13.10.2003 13:40:58
      • AW: Argument und Daten übertragen - von ChrisL am 13.10.2003 13:58:49
        • AW: Argument und Daten übertragen - von Andreas am 13.10.2003 15:11:19

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

Beiträge aus den Excel-Beispielen zum Thema " Verweise"