Thema Datum  Von Nutzer Rating
Antwort
15.08.2017 17:40:06 GYBB
NotSolved
Blau Varierende Anzahl Zellen untereinander einfügen
 15.08.2017 23:25:57 Ben
Solved
16.08.2017 11:23:19 GYBB
NotSolved
16.08.2017 13:43:49 Ben
NotSolved
16.08.2017 14:51:41 GYBB
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
15.08.2017 23:25:57		 Views:
593		 Rating:
     
Antwort:
 Nein
Thema:
Varierende Anzahl Zellen untereinander einfügen

Hallo,

hilft dieser Code weiter?

Sub CreateAuswertungFile()
    Dim colText As Collection
    Dim FlNr As Integer
    FlNr = FreeFile
    Open "L:\temp\Auswertung.txt" For Output As FlNr
    
    FillValues FlNr, Range("B1")
    Print #FlNr, ""
    
    FillValues FlNr, Range("C1")
    Print #FlNr, ""
    
    FillValues FlNr, Range("D1")
    Print #FlNr, ""
    
    Close #FlNr
End Sub

Sub FillValues(FileNr As Integer, rng As Range)
    
    Dim rngData As Range
    Dim rngVal As Range
    Set rngData = Range(rng, Cells(rng.Worksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, rng.Column))
    
    For Each rngVal In rngData.Cells
        If Len(rngVal.Value) > 0 Then
            Print #FileNr, rngVal.Value
        End If
    Next
End Sub

Dieser Code erstellt ieine Textdatei L:\temp\auswertung.txt nach dem Ausführen der Sub CreateAuswertungFile.

LG, Ben

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
15.08.2017 17:40:06 GYBB
NotSolved
Blau Varierende Anzahl Zellen untereinander einfügen
 15.08.2017 23:25:57 Ben
Solved
16.08.2017 11:23:19 GYBB
NotSolved
16.08.2017 13:43:49 Ben
NotSolved
16.08.2017 14:51:41 GYBB
NotSolved