Thema Datum  Von Nutzer Rating
Antwort
16.09.2022 05:56:40 Twice
NotSolved
16.09.2022 06:52:09 Gast8198
NotSolved
16.09.2022 07:44:37 Mase
NotSolved
16.09.2022 07:49:00 Twice
NotSolved
16.09.2022 08:01:46 Mase
NotSolved
Blau Teste mal an einer Kopie Deiner Datei
 16.09.2022 08:23:32 Mase
NotSolved
16.09.2022 08:40:32 Twice
NotSolved
16.09.2022 09:54:50 RPP63
NotSolved
16.09.2022 10:08:24 Mase
NotSolved
16.09.2022 10:10:54 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
16.09.2022 08:23:32		 Views:
281		 Rating:
     
Antwort:
  Ja
Thema:
Teste mal an einer Kopie Deiner Datei		 
    Dim v       As Variant
    Dim i       As Long
    Dim rng     As Excel.Range
    
    Set rng = Range("A3:F53")

    For i = 1 To rng.Columns.Count
        
        v = Application.Index(rng, 0, i)
        v = Application.Transpose(v)
        v = Join(v, ";")
        v = Replace(v, ";;", ";")
        v = Split(v, ";")
        v = Application.Transpose(v)
        
        rng.Columns(i).ClearContents
        rng.Columns(i).Cells(1, 1).Resize(UBound(v, 1), UBound(v, 2)).Value = v
        
    Next i

 

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
16.09.2022 05:56:40 Twice
NotSolved
16.09.2022 06:52:09 Gast8198
NotSolved
16.09.2022 07:44:37 Mase
NotSolved
16.09.2022 07:49:00 Twice
NotSolved
16.09.2022 08:01:46 Mase
NotSolved
Blau Teste mal an einer Kopie Deiner Datei
 16.09.2022 08:23:32 Mase
NotSolved
16.09.2022 08:40:32 Twice
NotSolved
16.09.2022 09:54:50 RPP63
NotSolved
16.09.2022 10:08:24 Mase
NotSolved
16.09.2022 10:10:54 RPP63
NotSolved