Zu importierende Zeilen zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub txtImport() Dim lstrInhalt As String, liZeile As Integer Open "pfad\deinedatei.txt" For Input As #1 Do While Not Eof(1) Line Input #1, lstrInhalt liZeile = lizZeile + 1 Loop Close If liZeile >= 100 then 'hier Dein Import-Code - kannst Du mit dem Makro-Recorder aufzeichen, wenn och nicht geschehen End If If liZeile >= 105 Then Rows("51:55").Select Selection.Insert Shift:=xlDown 'und hier wieder Dein Import-Code End If End Sub

upps..
Hallo Reinhard
Vielen Dank für die Korrektur. Du hast Recht. Mit meinem (nicht getesteten) Code werden beide IFs durchgeführt.
Deine Frage:
Ich verwende gern Kürzel in den Var-Namen, damit ich sofort weiß, um welchen Var-Typ es sich handelt, und ob es eine globale oder lokale Variable ist.
ein paar Bsp
Dim liZeile As Integer
Dim ldbBetrag As Double
Public pstrDateiName
usw...
l steht für lokal und p für public
i steht für Integer
db steht für Double
str steht für String
usw...
und alles, was nach diesen Kürzeln steht, ist nur ein für sich sprechender Name, damit ich auch weiß, um was für einen Wert es sich in der jeweiligen Variable handelt (Herkunft/Verwendung)
Ist Deine Frage beantwortet?
Ciao
Thorsten

Hi Karin
Damit Du keine feste Pfadangabe verwenden musst, tausche in dem schon bestehenden Code diese 2 Zeilen


Dim lstrInhalt As String, liZeile As Integer
Open "pfad\deinedatei.txt" For Input As #1

gegen diese 4 Zeilen aus:


Dim lDatName, lstrInhalt As String, liZeile As Integer
lDatName = Application.GetOpenFilename("Textdateien (*.txt), *.txt", , "txt-Datei für Import auswählen")
If lDatName = False Then Exit Sub
Open lDatName For Input As #1

Jetzt öffnet sich beim Start dieses Makros zuerst der Datei-Öffnen-Dialog, in dem Du eigentlich aus jedem Verzeichnis die gewünschte txt-Datei auswählen kannst.
So entfällt dann die Vorgabe eines Pfades.
Nachdem eine Datei ausgewählt wurde, wird der Code normal weiter abgearbeitet.
Was allerdings Deine 2. Frage betrifft, kann ich Dir leider nicht weiterhelfen.
Ich kenne wohl das Problem, dass beim Einfügen neuer Zeilen in ein Tabellenblatt schon vorhandene Formeln nicht angepasst werden. Aber ein VBA-Code, der dagegen "steuert", ist mir so auf die Schnelle nicht bekannt.
Vielleicht ist es hilfreich, wenn Du eine Bsp-Datei mit allen notwendigen Erklärungen auf den Server speicherst.
Ich hoffe aber, dass ich zumindest schon mal Deine 1. Frage beantworten konnte.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread