Konvertieren des Datums in eine VBA-Excel-Zelle

Das Dropdown-Feld Zahlenformat in Excel bietet die direkteste Möglichkeit, ein Datumsformat zu ändern. In diesem Feld können Sie eine Zelle so einstellen, dass sie entweder ein kurzes Datum ('03 / 20/2012 ') oder ein langes Datum (' Dienstag, 20. März 2012 ') anzeigt. Visual Basic-Skripte können auch Datumsangaben formatieren und bieten zusätzliche Formatierungsoptionen. Weisen Sie solche Skripte Befehlsschaltflächen zu, damit Benutzer sie ausführen können. Wenn Sie beispielsweise mit Excel Rechnungen erstellen, kann über eine Schaltfläche in Ihrer Tabelle ein Format für das Rechnungsdatum ausgewählt werden.

1.

Klicken Sie in der Menüleiste von Excel auf "Entwickler".

2.

Klicken Sie auf das Visual Basic-Symbol in der Registerkarte Code der Multifunktionsleiste, um das Visual Basic für Applikationen-Fenster zu starten.

3.

Verwenden Sie das Feld Projekt in der oberen linken Ecke des Bildschirms, um zu dem Modul zu navigieren, in das Sie Ihren Code schreiben möchten.

4.

Geben Sie die folgende Codezeile ein, um das Datum aus der Zelle abzurufen:

Dim origDate As String = Range ('A1'). Value

5.

Ersetzen Sie 'A1' durch die Adresse der Zelle, deren Datum Sie formatieren möchten.

6.

Geben Sie die folgende Zeile ein, um das Datumsformat zu konvertieren:

Dim formatedDate as String = Format (origDate, 'Long Date')

7.

Ändern Sie "Langes Datum" in "Kurzes Datum", wenn Sie das Datum in ein kurzes Datum umwandeln möchten. Belassen Sie es als 'Langes Datum', wenn Sie das Datum in ein langes Datum umwandeln möchten.

8.

Geben Sie die folgende Codezeile ein, um den Inhalt der Zelle zu ändern:

Bereich ('A1'). Value = formatedDate

9.

Ersetzen Sie 'A1' durch die Adresse der Zelle, deren Datum Sie formatieren möchten.

Tipps

  • Sie können das Datum anderen Formaten als "Langes Datum" und "Kurzes Datum" zuweisen. Ändern Sie in Schritt 7 "Langes Datum" in:
  • - 'JJJJ / MM / TT', um das Datum auf das Format '2012/03/20' einzustellen
  • - 'TT / MM / JJJJ', um das Datum auf das Format '20 / 03/2012 'einzustellen

Follow us

Don't be shy, get in touch. We love meeting interesting people and making new friends.