Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabeformular

Eingabeformular
19.02.2005 20: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
Anzeige
AW: Eingabeformular
19.02.2005 22: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!
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige