Allgemeines 21.980 Themen, 148.534 Beiträge

Benötige Makro für Excel 5.0

FH / 1 Antworten / Baumansicht 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
Tode FH „Benötige Makro für Excel 5.0“
Optionen

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