Allgemeines 21.915 Themen, 147.228 Beiträge

Benötige Makro für Excel 5.0

FH / 1 Antworten / Flachansicht Nickles

Mein Problem:

In Spalte B werden für Meldungen von Firmen ein Eingangsdatum eingegeben
In Spalte C sind bereits einige Vorausmeldungen mit Datum enthalten

Das Makro soll Spalte B durchlaufen. Wenn hier ein Datum vorhanden ist, soll in Spalte C gewechselt werden und ein evtl. vorhandenes Datum löschen.
Das Makro benötige ich für die Exel 5.0-Version.
Vielleicht kann mir jemand helfen ?
Vielleicht per E-Mail ?
Vielen Dank für Eure Mühe im voraus.
(fh)

Antwort:
Hallo fh,
Welche Sprache hast Du in Deinem Excel für die Macros eingestellt ? Deutsch oder Englisch ?
Hier erst mal die Deutsche Version:
Sub wasweissich()
Für y = 1 bis 100
' Für die 1 setzt Du die erste zu prüfende Zeile ein (wahrscheinlich 2 oder drei, denn Du hast sicher Zeilenüberschriften)
' Für die 100 setzt du die letzte zu prüfende Zeile 1 (maximal 65536)
Wenn IstDatum(ZelleListe(y,2)) dann
'Nur wenn ein Datum in Spalte B steht, wird Spalte C gelöscht,
'wenn Du C immer löschen willst, wenn in B irgendwas drinsteht, dann:
' Wenn ZelleListe(y,2) "" dann
Zelleliste(y,3) = ""
ende Wenn
Nächstes y
Ende Sub
Hier englisch:
sub whatdoiknow()
For y = 1 to 100
if IsDate(Cells(y,2)) then
cells(y,3) = ""
end if
next y
end sub
Ich hoffe, ich konnte Dir helfen.
MfG
Tode
(Tode)

bei Antwort benachrichtigen