Thema Datum  Von Nutzer Rating
Antwort
Rot Hallo Zusammen Zellen teilen
13.05.2021 11:36:32 Felix
NotSolved
13.05.2021 21:24:35 Gast65209
NotSolved

Ansicht des Beitrags:
Von:
Felix 		Datum:
13.05.2021 11:36:32		 Views:
857		 Rating:
     
Antwort:
  Ja
Thema:
Hallo Zusammen Zellen teilen

Hallo Zusammen und einen schönen Herrentag an alle Herren unter uns. 

 

Zu meiner Frage: 

Ausgangslage ist eine ExcelTabelle mit 10 Spalten, "B" Steht ein Monat ; "C" der Wochentag bzw. mehrere Wochentage "1234567" ; "E" Kundenname 

"F" Kundenummer ; "G" Bestellzeit 

Ich möchte gern denn Wochentag Splitten wenn mehr als 1 Wochentag  vorhanden ist zbs. 1457.  Dazu habe ich schon mal eine Prozedur geschrieben.

Vllt kann mir einer einen Denkansatz oder tip geben. 

 

Beste Grüße Felix 

 

Sub seperateDays()

Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngZ As Long
Dim VarDat As Variant
Dim lngSp As Long
Dim lngSpalteMax As Long


With Tabelle1
    
    .Range("M:R").Clear
    .Range("M1:Q1").Value = Array("Monat", "Wochentag", "Kunde", "Kundennummer", "Zeit")
    .Range("M1:Q1").Font.Bold = True
    lngZ = 2
    
    lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
    
    For lngZeile = 2 To lngZeileMax
        
        VarDat = Split(.Range("C" & lngZeile).Value, "")
        lngZeileMax = UBound(VarDat)
        
        For lngSp = 0 To lngSpalteMax
            
            .Range("M" & lngZ).Value = .Range("B" & lngZeile).Value
            .Range("N" & lngZ).Value = VarDat(lgnSP)
            .Range("O" & lngZ).Value = .Range("E" & lngZeile).Value
            .Range("P" & lngZ).Value = .Range("F" & lngZeile).Value
            .Range("Q" & lngZ).Value = .Range("G" & lngZeile).Value
            
            lngZ = lngZ + 1
            
            
         Next lngSp
            
    Next lngZeile
    
End With
        

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hallo Zusammen Zellen teilen
13.05.2021 11:36:32 Felix
NotSolved
13.05.2021 21:24:35 Gast65209
NotSolved