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)
      
Allgemeines 21.915 Themen, 147.228 Beiträge
          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)
        
