Soweit hinbekommen .. Wochentag als Zahl ausgeben
25.07.2018 01:28:14
Tobias
So, ich habe es hinbekommen.
Vlt nicht die beste Lösung, aber es funktioniert.
Was ich nicht hinbekomme .. in beim Schreiben in die Datei soll als 10 Stelle (Selection.Offset(0, 10) der Wochentag (Variable RnG) in eine Zahl umgewandelt werden.
Dabei soll der Dienstag 1 sein, Mittwoch 2 ... usw.
Kann mir jemand bei dem lezten Detail helfen?
LG
TObi
Private Sub CommandButton1_Click()
Dim Wochentag As String, RnG As Range, Marktnummer As String
Dim Markt_Name As String, Markt_Straße As String, Markt_Ort As String, Markt_Telefon As String, _
Markt_Kategorie As String, Markt_Ansprechpartner As String
Dim wksMärkte As Worksheet
Dim c As Range
Set Märkte = Workbooks("Märkte.xlsm").Worksheets("Märkte")
'Call sort
Wochentag = Markt_anlegen.Wochentag.Value
For Each RnG In Range("D3:D100")
If RnG = Wochentag And RnG.Offset(1, 0) Wochentag Then
RnG.Select 'zur Demo
Exit For
End If
Next
Marktnummer = RnG.Offset(, -2) + 1
Markt_Name = Me.MarktName
Markt_Strasse = Me.Strasse
Markt_Ort = Me.Ort
Markt_Telefon = Me.Telefon
Markt_Kategorie = Me.Kategorie
Markt_Ansprechpartner = Me.Ansprechpartner
With wksMärkte
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select 'letzte leere zelle
ActiveCell.Select
ActiveCell = Marktnummer
Selection.Offset(0, 1) = Markt_Name
Selection.Offset(0, 2) = RnG
Selection.Offset(0, 3) = Markt_Kategorie
Selection.Offset(0, 4) = Markt_Ansprechpartner
Selection.Offset(0, 5) = Markt_Strasse
Selection.Offset(0, 6) = Markt_Ort
Selection.Offset(0, 7) = Markt_Telefon
Selection.Offset(0, 9) = Marktnummer
End With
End Sub