hallo Franz
leider kann ich nicht mehr auf mein Archivbeitrag antworten deswegen mache ich einen neuen auf.
Ich war jetzt die letzten Stunden dabei zu testen was mir der Franz erstellt hat. Nur leider komme ich nicht richtig dazu.
Ab und zu wenn ich die *txt Datei importiere macht Excel nicht weiter. Der Import geht zwar. Ich gebe dann in C2 eine Zahl ein und er behält sie in der Zelle und springt einfach eine tiefer ohne irgendwas zu überprüfen ect.
Wie gesagt...nicht immer,...manchmal macht er ohne zu murren das was er soll (danke dafür schonmal Franz ;))
Aber machmal eben auch nicht...habe auch schon an einem anderen Rechner probiert...immer mal wieder das Problem das er nach dem Import nichts macht. Kann irgendjemand sagen was da nicht stimmt?
Mir viel auf, das das meistens dann passiert wenn ich die importierten Zellen markiere und die Inhalte mit entfernen lösche. Wenn ich dann die txt Datei neu importiere geht es erst wieder wenn ich Excel neu gestartet habe!! * hm..nun versteh ich garnichts mehr... übersehe ich einen Fakt beim Thema import manuell rauslöschen?
Anbei nochmal der Code für den Dateiimport:
Sub texteinfuegen()
Dim varTextDatei
Dim strPfadAkt As String, rngEinfuegZelle As Range
strPfadAkt = CurDir 'Aktives Verzeichnis merken
'ChDir "Macintosh HD:Benutzer:Für alle Benutzer" 'Verzeichnis mit Textdateien
varTextDatei = Application.GetOpenFilename(Title:="Bitte Textdatei mit Daten auswählen und ö _
_
_
_
ffnen")
If (varTextDatei = False) Or (InStr(LCase(varTextDatei), "etik") = 0) Then
MsgBox " Import der Datei nicht möglich." & vbLf _
& vbLf & " Bitte wähle eine gültige Etikettendatei !"
Exit Sub
End If
'Einfügezelle ermitteln
With ActiveSheet
If .Cells(.Rows.Count, 1).End(xlUp).Row >= 5 Then
Set rngEinfuegZelle = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Set rngEinfuegZelle = .Range("A5")
End If
End With
'Querrydaten holen
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & varTextDatei, Destination:=rngEinfuegZelle)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlMacintosh
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
.UseListObject = False
End With
VBA.ChDir strPfadAkt 'aktuelles Verzeichnis zurücksetzen
End Sub
P.S. Franz, die Grundvorraussetzung für den Antrag ist selbstverständlich gegeben ;o)
LG
J