Thema Datum  Von Nutzer Rating
Antwort
Rot zweite Textdatei in nächste freie Zeile schreiben
 09.11.2010 10:12:50 Hans Peter
NotSolved
09.11.2010 10:42:30 Severus
NotSolved

Ansicht des Beitrags:
Von:
Hans Peter		 Datum:
09.11.2010 10:12:50		 Views:
1581		 Rating:
     
Antwort:
  Ja
Thema:
zweite Textdatei in nächste freie Zeile schreiben
Hallo Leute,

und zwar habe ich folgendes Programm geschrieben um zwei Textdateien in eine Ecxel datei via Makro einzufügen und dann nach Namen zu Sortieren, jedoch hänge beim einfügen der 2. Textdatei.
Ich weiß nicht was ich bei Range("") einfügen muss, das er direkt nach den eingefügten Werten der ersten Datei weiter macht.

Folgendes Programm:
Sub Makro2()

' Makro

' 2 Namenslisten einlesen & nach Alphabet sortieren

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\David\Desktop\Namen1.txt", Destination:=Range("$A$1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With

Range("A12").Select

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\David\Desktop\Namen2.txt", Destination:=Range("$A$12"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With

ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A1:A24" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("B1:B24" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A1:D24")
.Apply
End With

End Sub


in meiner Textdatei habe ich z.b. 10 Namen mit matrikelnummer und allem drum und dran durch Simikolons getrennt, also habe ich bei den Range("A12") eingegeben wo er die zweite Zeile eingeben soll, jedoch soll dies automatisch funktionieren. Kann mir da wer helfen?
Dies Problem herrscht auch bei den unteren Befehlen des Programms, dort habe ich immer einen Bereich eingegeben, jedoch soll dies automatisch passieren.

Bitte um Hilfe
Danke und gruß Hans :)

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 zweite Textdatei in nächste freie Zeile schreiben
 09.11.2010 10:12:50 Hans Peter
NotSolved
09.11.2010 10:42:30 Severus
NotSolved