VBA Excel Code unverständlich

[0xORChecker]

Hallo,

ich habe hier folgenden kurzen Code vorliegen und hätte dazu einige Fragen. Wäre nett wenn sie mir jemand beantworten könnte.

Hier erstmal der Code:

Sub ExportFile()

Dim FileNr As Long

Dim File As String

Dim Line As String

Dim arr() As String

Dim row As Long

Dim col As Long

Dim zähler As Integer

Dim activCell As Range

FileNr = FreeFile

File = InputBox("Bitte geben Sie den Pfad der Datei, die Sie öffnen möchten, an!", "Datei öffnen", "F:\Privat\WLAN-Projekt\Dokumentation\Testdatei.txt")

'Aufruf der Funktion FileExists

If FileExists(File) = False Then

MsgBox "Fehler in der Pfadangabe oder diese Datei existiert nicht!", vbCritical, "Fehler!!!"

End

End If

Open File For Input As #FileNr

Set activCell = Worksheets("Tabelle1").Range("A1")

Call activCell.Activate

While (Not EOF(FileNr))

Line Input #FileNr, Line 'Zeile einlesen

arr = Split(Line, vbTab) 'an Tabs aufspalten

For col = LBound(arr) To UBound(arr)

activCell.Offset(row, col).Value = arr(col)

Next

row = row + 1

Wend

'Formatierung der Tabelle

Range("A3:K3").Font.Size = "12"

Range("A3:K3").Font.Bold = "True"

Rows(1).Delete 'Diese Anweisung wird 2 mal verwendet,

Rows(1).Delete 'damit die ersten beiden Zeilen gelöscht werden

'Suchen und Ersetzen von Zeichenfolgen

Worksheets("Tabelle1").Columns("A:Z").Replace What:="(", Replacement:=""

Worksheets("Tabelle1").Columns("A:Z").Replace What:=")", Replacement:=""

Worksheets("Tabelle1").Columns("A:Z").Replace What:="BSSID", Replacement:="MAC"

Close FileNr

End Sub

Function FileExists(File As String) As Boolean

FileExists = False

FileExists = Dir(File) <> ""

End Function

So und nun meine Fragen:

1. Was macht die for-schleife in diesem Programm eigentlich? Mir sagen nämlich die Begriffe lbound und ubound nicht viel.

2.Wo in diesem Programm geschieht die Ausgabe der Datei???

Wäre wirklich sehr dankbar, wenn mir jemand helfen könnte.

Danke im voraus!

[-roTekuGeL-]

LBound und UBound 'verwandeln' einen string entweder nur in Großbuchstaben UBound (Upper) oder nur in Kleinbuchstaben LBound (Lower)

die ausgabe der datei erfolgt ab dem 'Open File For Input[...]' befehl

[maxim_42]

LBound und UBound 'verwandeln' einen string entweder nur in Großbuchstaben UBound (Upper) oder nur in Kleinbuchstaben LBound (Lower)

Sorry , aber is Quatsch.

For col = LBound(arr) To UBound(arr)

activCell.Offset(row, col).Value = arr(col)

Next

LBound(arr) ist der kleinste Index des Feldes arr

Ubound(arr) ist der größte.

In der Schleife wird in Zeile row einer Excell-Tabelle

jeweils in der col Spalte der Wert von arr(col) geschrieben.

Das Ganze ist ein Import einer Datei die Tabulator-separierte Werte enthält.

Importiert wird in eine Excel-Tabelle.

Pro Eintrag in der Textdatei, ein Eintrag in der Excel-Tabell.

2.Wo in diesem Programm geschieht die Ausgabe der Datei???

Was meinst du damit?

[-roTekuGeL-]

Original geschrieben von maxim_42

Sorry , aber is Quatsch.

*grrr* hast recht... mit UCase und LCase verwechselt :floet:

[0xORChecker]

danke, ist nun alles verständlich :-)))