Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten in andere tabellen einordnen

Daten in andere tabellen einordnen
03.02.2003 10:50:51
Rico
Hallo erstmal
Da ich nicht so der Exelcrack bin eine Frage.
Ich möchte verschiedene Zellen in einer Zeile in ein anderes Tabellenblatt übernehmen wenn diese Zellen einen bestimmten Wert haben. Ist kein Eintrag vorhanden soll die nächste Zeile und deren Zellen abgefragt werden und untereinander ohne Leerzeilen in dieses andere Tabellenblatt geschrieben werden.

Ich finde es ziemlich kompliziert, aber vielleicht weis ja jemand eine Loesung.

Danke schonmal fuer die Muehe

Rico


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Daten in andere tabellen einordnen
03.02.2003 11:02:03
Bernd Held

Hallo Rico,

so etwas in der Art könnte Dir weiterhelfen:

Sub BereicheÜbertragen()
Dim Tab1 As Worksheet
Dim Tab2 As Worksheet
Dim l As Long
Dim i As Long

Set Tab1 = ActiveWorkbook.Worksheets("Tabelle1")
Set Tab2 = ActiveWorkbook.Worksheets("Tabelle2")

For l = 1 To Tab1.UsedRange.Rows.Count
If Tab1.Cells(l, 1).Value <> "" Then
i = 1
Do Until Tab2.Cells(i, 1) = ""
i = i + 1
Loop
Tab2.Cells(i, 1).Value = Tab1.Cells(l, 1).Value
Tab2.Cells(i, 2).Value = Tab1.Cells(l, 2).Value
Tab2.Cells(i, 3).Value = Tab1.Cells(l, 3).Value
Tab2.Cells(i, 4).Value = Tab1.Cells(l, 4).Value
End If
Next l
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de


Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige