Excel - SVERWEIS

@YaaCool

Sieht gut aus, aber nun machen wir es systematisch. Erstmal sieh nach, ob der Pfad gefunden wird. Setze dazu nach der Zeile

If Dir(strPfad) "" Then

folgende Zeile ein:

msgbox strPfad

Dann müsste die Meldung mit dem Pfad erscheinen, wenn er gefunden wurde.

@A38O

Dann zeigt er mir den Pfad an

OK, dann die Zeile wieder raus.

Nimm jetzt am besten eine selbst erstellte Textdatei, in der nur ein paar Zeilen enthalten sind - sonst verzweifelst Du. :D

Setze nach

Line Input #lngDateiNummer, strZeile

die Zeile mit der Meldung ein, zum Beispiel

msgbox strzeile

Dann müsste jede Zeile als Meldung angezeigt werden.

@A38O

das macht er auch

@YaaCool

Also muss es beim Vergleich liegen, wo keine Übereinstimmung gefunden wird:

If Left(Trim(strZeile), 11) = "Verzeichnis" Then

Lösche mal die alte Meldung und setze die nach dem Vergleich ein, also


If Left(Trim(strZeile), 11) = "Verzeichnis" Then
msgbox strzeile

@A38O

dann gibt er mir nur die zeilen aus, in denen "Verzeichnis" vorne steht :troll:

@YaaCool

So soll es ja auch sein, oder?

@A38O

Ja, genau, aber warum kopiert er sie dann nicht in die tabelle?

@YaaCool

Müsste eigentlich da landen. Die Spalte ist nicht zufällig ausgeblendet? Ist die Spalte breit genug?

Eigentlich dürfte es nicht daran liegen, aber lege mal bei intS = 1 noch die Zeile fest, wo es losgehen soll:

lngZ = 10

Dann erfolgt der erste Eintrag in Zeile 11.

@A38O

hilft auch nichts

@YaaCool

Das ist ein Ding …

Schreibe mal

Cells(lngZ, intS) = "AAAAAAA"

und gucke, ob er das einträgt.

@A38O

nee :D

@YaaCool

Rudi Ratlos. Das ist halt der Mist, wenn man es nicht vor sich hat. Am Code finde ich keinen Fehler, Du könntest höchstens mal das

Application.ScreenUpdating = False

rausnehmen. Ansonsten nimm mal eine neue Mappe und versuche es darin.

ok, ich hab grad mal durchgeblättert, er hat alles in das falsche tabellenblatt geschrieben :D

@YaaCool

Das ist auch gut. :D

Wenn man kein Blatt angibt, wird es aber immer in das gerade aktive geschrieben. Wenn es in ein anderes soll, muss man das ausdrücklich mitteilen:

sheets("Tabelle_sowieso").cells(lngz, ints) = …

@A38O

ok, jetzt scheint es zu gehen
aber ich befürchte, bei der großen wird er mir trotzdem sterben
ich muss mal gucken ob ich einen anderen rechner benutzen kann oder so

@YaaCool

Ja, da kann man auch sonst nichts weiter machen.

Dann kann ich ja weiter arbeiten. :D

Ja, danke :D

OK, bis denne! :)

@A38O

kannst du auch bisschen sql in access? ^^