Eingabeformular

Forumthread: Eingabeformular
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Eingabeformular

Eingabeformular

19.02.2005 21:43:48

Jürgen

Hallo Excelfreunde
Habe eine Kundendatei erstellt.
Wie kann man Daten aus nicht benachbarten Zellen von einem TB in ein anderes TB auf eine nächst leere Zeile kopieren.?
Kann da jemand helfen?
Ich wäre sehr dankbar
Gruß Jürgen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eingabeformular

19.02.2005 23:25:50

Josef

AW: Eingabeformular

19.02.2005 23:25:50

Josef

Hallo Jürgen!
Das hängt vom Aufbau deiner Tabelle ab!
Eine Möglichkeit währe z.B. so.


Option Explicit
Option Base 1
Sub Uebertrag()
Dim eingabe As Worksheet, TB As Worksheet
Dim lastRow As Long, i As Integer
Dim arr() As Variant
Dim rng As Range
Dim zellen As String
'hier alle Zellen des Eingabebereiches angeben
zellen = "B10,D11,E15,F4:F6,I3"
Set eingabe = Sheets("Eingabe")  'Tabellenname anpassen!
Set TB = Sheets("TB")            'Tabellenname anpassen!
'ermitteln der ersten leeren Zeile in "TB"
lastRow = IIf(TB.Range("A65536") <> "", _
65536, TB.Range("A65536").End(xlUp).Row) + 1
'Array mit Daten füllen
With eingabe
For Each rng In .Range(zellen)
i = i + 1
ReDim Preserve arr(1, i)
arr(1, i) = rng.Value
Next
End With
'Array an "TB" übergeben
With TB
.Range(.Cells(lastRow, 1), .Cells(lastRow, UBound(arr, 2))) = arr
End With
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!