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

Vergangenheit im Archiv

Vergangenheit im Archiv
25.07.2007 09:42:00
Salim

Hallo zusammen,
habe ein weiteres Beitrag ;)
Würde gerne folgendes machen (Meine sehr bescheidene VBA-Kenntnisse reichen dafür nicht aus).
im Arbeitsblatt Projekte
im Bereich (AI:4:AI400) Daten untersuchen, falls kleiner Datum Heute() dann
Zeile ausschneiden.
Arbeitsblatt Projektarchiv selektieren.
Ab Zeile 4 Insert falls Zeile frei
danach Spalten (AJ:AY) löschen
zurück zum Arbeitsblatt Projekte.
Gruss und vielen Dank für die tolle Unterstützung.
Salim

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

Betreff
Datum
Anwender
Anzeige
AW: Zukunft im Forum
25.07.2007 10:27:00
Renee
Mazwara Salim,
danach Spalten (AJ:AY) löschen habe ich nicht begriffen. In welchem Sheet? Warum Spalten ?
Sonst das in ein Modul:

Sub archiv()
Dim lRow As Long
Dim rC As Range
If ActiveSheet.Name  "Projekte" Then Exit Sub
Application.ScreenUpdating = False
lRow = Sheets("Projektarchiv").Range("A" & Sheets("Projektarchiv").Rows.Count).End(xlUp). _
Row + 1
lRow = IIf(lRow 


Greetz Renee

AW: Zukunft im Forum
25.07.2007 11:39:13
Salim
Danke sehr!
Hat geklappt!
Gruss
Salim
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige