Excel Macro Hilfe

[Catfish]

Servus XN00119,
die Hilfe ist obergenial superklasse spitze.

Habe nun noch ein zweites Problem. Oder besser gesagt ist es immer noch das erste. Ich habe ein Arbeitsblatt Annahme und ein Arbeitsblatt Daten in einer Datei. (Hätte ich auch gleich so schreiben können) Könntest Du mir da nochmals helfen! Die zu archivierende Spaltenanzahl ist 6.

Wie kann ich das ebensogut erlernen wie Du hier beschrieben hast?
Gibt es einen Homekurs?

[XN00119]

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.

[Catfish]

Moin,
komme erst jetzt zum schreiben. Sorry, kenne die gepflogenheiten noch nicht so genau. Habe aber bereits den Klich nachgeholt. Ehre dem, dem Ehre gebührt. Sag mal auch noch so Danke und probiere es mal aus. Sollte ich nicht klar kommen, werde ich mich nochmal melden.