Hallo,
ich habe über VBS zu VBA gefunden. Dazu habe ich ein paar Bücher über VBS gelesen aber die Excelhilfe reicht wenn dir die Grundzüge (COM) geläufig sind. Für dein Problem kannst du meine Routine einfach abändern. z.B. erste freie Zeile im Arbeitsblatt Daten suchen:
archivzeile = 2 'Startzeile wählen
CurCell = Worksheets("Daten").Cells(archivzeile, 6)
Do Until VarType(CurCell) = 0
archivzeile = archivzeile + 1
CurCell = Worksheets("Daten").Cells(archivzeile, 6)
Loop
Bestimmtes Arbeitsblatt aktivieren:
Worksheets("Annahme").Activate
So nun ab zeile 2 suchen ob nicht archivierte Sätze vorhanden sind und Spalte 6 kopieren:
okFlag=10 ' Hier gewünschte Spalte für Archivflag eintragen
zeile = 2
CurCell = Worksheets("Annahme").Cells(zeile, 6)
Do Until VarType(CurCell) = 0
If Worksheets("Annahme").Cells(zeile, okFlag).Value <> "ok" Then
Worksheets("Daten").Cells(archivzeile, 6).Value = Worksheets("Annahme").Cells(zeile, 6).Value
Worksheets("Annahme").Cell s(zeile, okFlag).Value = "ok"
archivzeile = archivzeile + 1
End If
zeile = zeile + 1
CurCell = Worksheets("Annahme").Cells(zeile, 6)
Loop
Hier noch ein paar Links:
http://www.dieseyer.de/dse-wsh-links.html
http://activevb.de/startseite/index.html
http://source-center.de/forum/forumdisplay.php?f=15
http://www.borncity.de/WSHBazaar/WSHBazaar.htm
http://www.visualbasic-archiv.de/home/willkommen.php3
http://www.vbapi.com/
http://www.windows-scripting.de/
http://www.w3schools.com/vbscript/default.asp
PS: über einen Danke Klick würde ich mich freuen.