ich habe folgende Funktion geschrieben:
Function txt_import(strName As String)
Dim strFolder As String
Dim strFilename As String
Dim wrsWorksheet As Worksheet
strFolder = ThisWorkbook.Path
strFilename = "\" & strName & ".txt"
Worksheet_suchen (strName)
Select Case strName
Case Is = "Optionen"
blnOptionenTXT = blnSearchResult
Case Is = "Sprache"
blnSpracheTXT = blnSearchResult
End Select
If blnSearchResult = False Then
'*** Eine neues Tabelenblatt wird erzeugt (mit dem Namen Sprache) ***'
Worksheets.Add
ActiveSheet.Select
ActiveSheet.Name = strName
'*** Daten aus dem txt File (Sprache.txt) wird importiert ***'
Workbooks.OpenText Filename:= _
strFolder & strFilename, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1))
Windows(strName & ".txt").Activate
Cells.Select
Selection.Copy
Application.DisplayAlerts = False
Windows("Probecard Tool Rev. 2.xls").Activate
Worksheets(strName).Cells(1, 1).Select
ActiveSheet.Paste
Windows(strName & ".txt").Activate
Application.CutCopyMode = False
Windows(strName & ".txt").Close
Application.DisplayAlerts = False
Windows("Probecard Tool Rev. 2.xls").Activate
Sheets(strName).Cells(1, 1).Select
Sheets(strName).Visible = xlVeryHidden
blnOptionenTXT = True
End If
End Function
was mir noch nicht so gut gefäält ist der Part:
Select Case strName
Case Is = "Optionen"
blnOptionenTXT = blnSearchResult
Case Is = "Sprache"
blnSpracheTXT = blnSearchResult
End Select
da die Variablen strName entweder Sprache oder Optionen ist
würde ich den inhalte der Var von strName gerne
ind die bezweichnung der var blnSpracheTXT und blnOptionenTXT
zwischen bln und TXT übernehmen so könnte ich mir
hier einege Zeilen sparen!
Ist das möglich!
Gruß
Swen