Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

best. Werte aus Tab1 nach Tab2 übertragen

best. Werte aus Tab1 nach Tab2 übertragen
12.12.2003 09:56:43
Peter
Hallo Forum,
ich habe in Tabelle1 in Spalte "B", ab "B2" Namen und in Spalte "E" ab "E2"
dazugehörige Datumswerte stehen.
Ich möchte nur die Namen nach Tabelle2 übernehmen, wo der dazugehörige
Datumswert >= heute ist. Diese Auswahl soll in Tabelle 2 fortlaufend
ab "B8" eingetragen werden.

Danke Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: best. Werte aus Tab1 nach Tab2 übertragen
12.12.2003 10:57:43
WernerB.
Hallo Peter,

wie gefällt Dir das?

Sub Peter()
Dim laR1 As Long, laR2 As Long, i As Long
Application.ScreenUpdating = False
laR1 = Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To laR1
If Sheets("Tabelle1").Cells(i, 5).Value >= Date Then
laR2 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
If laR2 < 7 Then laR2 = 7
Sheets("Tabelle2").Cells(laR2 + 1, 2).Value = _
Sheets("Tabelle1").Cells(i, 2).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: Danke -jetzt komme ich weiter- o.T.
13.12.2003 10:51:45
Peter
Danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige