Thema Datum  Von Nutzer Rating
Antwort
28.01.2023 21:23:03 Kris
NotSolved
28.01.2023 22:03:18 xlKing
NotSolved
28.01.2023 22:34:10 Kris
NotSolved
Blau txt Datei Auswerten
 29.01.2023 00:10:46 Gast14919
NotSolved
29.01.2023 01:04:54 Kris
NotSolved
29.01.2023 14:50:21 Gast48825
NotSolved
29.01.2023 18:45:42 xlKing
NotSolved
30.01.2023 17:06:33 Gast36383
NotSolved
29.01.2023 01:26:03 Kris
NotSolved
29.01.2023 18:37:39 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Gast14919		 Datum:
29.01.2023 00:10:46		 Views:
396		 Rating:
     
Antwort:
  Ja
Thema:
txt Datei Auswerten

Aber in unterschiedlichen Spalten, nehme ich an? Da bleibt dir nichts anderes übrig, als Zeile für Zeile durchzugehen und per VBA mit Range.Find nach From bzw. To zu suchen. Den Zellinhalt kannst du dann in die zweite Tabelle kopieren. Eine Idee dazu wäre der folgende Code. Ohne Beispieldaten kann ich leider nicht mehr für dich tun.

Sub Kopieren()

Set quelle = Sheets("Tabelle1")
Set ziel = Sheets("Tabelle2")

lastrow = quelle.UsedRange.Rows.Count

spalte = 1
For i = 1 To lastrow
  With quelle
    Set frq = .Rows(i).Find("From: ")
    If Not frq Is Nothing Then
      Set frz = ziel.Rows(1).Find(frq.Value)
      If Not frz Is Nothing Then
        spalte = frz.Column
      Else
        spalte = ziel.Cells(1, Columns.Count).End(xlToLeft).Column + 1
        ziel.Cells(1, spalte) = frq.Value
      End If
    End If
    Set toq = .Rows(i).Find("To: ")
    If Not toq Is Nothing Then
      Set toz = ziel.Columns(spalte).Find(toq.Value)
      If Not toz Is Nothing Then
        zeile = toz.Row
      Else
        zeile = ziel.Cells(Rows.Count, spalte).End(xlUp).Row + 1
        ziel.Cells(zeile, spalte) = toq.Value
      End If
    End If
  End With
Next i

End Sub

Gruß Mr. K.

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
28.01.2023 21:23:03 Kris
NotSolved
28.01.2023 22:03:18 xlKing
NotSolved
28.01.2023 22:34:10 Kris
NotSolved
Blau txt Datei Auswerten
 29.01.2023 00:10:46 Gast14919
NotSolved
29.01.2023 01:04:54 Kris
NotSolved
29.01.2023 14:50:21 Gast48825
NotSolved
29.01.2023 18:45:42 xlKing
NotSolved
30.01.2023 17:06:33 Gast36383
NotSolved
29.01.2023 01:26:03 Kris
NotSolved
29.01.2023 18:37:39 xlKing
NotSolved