Übertrag vom Datum in eine andere Spalte

hallo Ihr lieben,
ich muss sehr oft Datum in ein bestimmtes Feld eingeben, und habe ich eine Excelliste gemacht, habe nach einen kostenlosen Barcode Generator gesucht und für den Code 39 gefunden. (Falls jemand zufällig ein kostenlosen oder bis 20 Barcode Generator für Excel für Code 128 hat, würde ich mich über ein Link freuen)
in der Tabelle ist eine Liste von 5 Werktagen von den nächsten 2 Wochen. Zurzeit trage ich das berechnete Datum in der nächsten Spalte händisch damit es wiederum in ein BarCode ausgeführt wird.
Wenn ich das Datum kopiere und als Wert eintragen lasse, kommt in der zwischenspalte der Wert vom Datum. Das wird auch in ein Barcode umgewandelt, aber das ist nicht das, was ich haben möchte.
Ich bräuchte bitte Hilfe, dass ich mit einem Makro das Datum von eine Spalte in den nächste Spalte übertragen wird. Beispiele, wie es sein sollte habe ich in der Beispieltabelle eingefügt. Das ist auch die Tabelle, die ich nutze.
hier die Datei
https://www.herber.de/bbs/user/129488.xlsm
Vielen Dank für jede Hilfe im Voraus.
Viele Grüße,
Lilli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
in ein Modul deiner Datei...


Public Function Code128$(Text$)
Dim x%, y%, fehlzeichen%, checksumme&
Dim Zeichensatz As Variant
Zeichensatz = Array("ß", "!", Chr(34), "#", "$", "%", "&", "'", "(", ")", "*", "+", ",", "-" _
, ".", "/", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ":", ";", "", "?", "@", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "[", "\", "]", "^", "_", "`", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "{", "|", "}", "~", "´", "ä", "ö", "ü", "Ä", "Ö", "Ü", "µ", "À", "Á", "Â", "È")
Code128$ = ""
'Die Maximallänge des Textes wird auf 40 Zeichen begrenzt, um fehlerhafte Scans zu  _
vermeiden.
If (Len(Text$) > 40) Then
x% = MsgBox("Der zu codierende Text ist " & Str(Len(Text$) - 40) & " Zeichen zu lang." & _
Chr(13) & "Um Fehler beim Scannen des Barcodes zu vermeiden, ist dieses Makro auf 40 Zeichen begrenzt.", 64, "Barcode-Generator (Code 128)")
Exit Function
End If
'Wenn kein Text zu codieren ist, dann Funktion beenden.
If (Len(Text$) = 0 Or Text$ = "0") Then
Exit Function
End If
'Testen, ob im Ausgangstext ein ß enthalten ist
If (InStr(Text$, "ß")  0) Then
x% = MsgBox("Das Zeichen ß kann nicht dargestellt werden.", 64, "Barcode-Generator ( _
Code 128)")
Exit Function
End If
'Das Startzeichen hat den Wert 104
checksumme& = 104
'Leerzeichen durch ß ersetzen
Text$ = Replace(Text$, " ", "ß")
'Prüfziffer berechnen
For x% = 1 To Len(Text$)
fehlzeichen% = 1
For y% = 0 To 94
If (Mid$(Text$, x%, 1) = Zeichensatz(y%)) Then
fehlzeichen% = 0
checksumme& = checksumme& + (x% * y%)
Exit For
End If
Next y%
If fehlzeichen% = 1 Then
x% = MsgBox("Das Zeichen " & Mid$(Text$, x%, 1) & " kann nicht dargestellt werden.", _
64, "Barcode-Generator (Code 128)")
Exit Function
End If
Next x%
'Rest ermitteln
checksumme& = checksumme& Mod 103
'Ergebnis = Startzeichen + Text + Prüfziffer + Stoppzeichen
Code128$ = "Á" & Text$ & Zeichensatz(checksumme&) & "È"
End Function

In der entsprechenden Zelle dann so aufrufen

B1 = Code128(A1)

Musst dann die entsprechende Code128er Schriftart auch verwenden
LG UweD

Beliebteste Forumthreads (12 Monate)

Übertrag vom Datum in eine andere Spalte

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Übertrag vom Datum in eine andere Spalte

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread