LordHexa

Na endlich

Wozu das Call ? Shell("<Datei-Pfad>") Zum erstellen der Textdatei : Sub TextFile_Erzeugen Set todo = CreateObject("Scripting.FileSystemObject") Set aktion = todo.CreateTextFile("c:\testfile.txt", True) End Sub

Naja, jetzt bin ich schon etwas weiter mit dem Ganzen. Trotzdem Danke für deine Mühe!

Okay, hab ne Lösung gefunden. Diese ist zwar nich grade elegant, aber sie erfüllt ihren Zweck

GuMo zusammen, hab ein kleines Problem, das sich sicherlich einfach lösen lässt, aber irgendwie fehlt mir der Ansatz. Ich habe mehrer Einträge in einer Exceltabelle, die ich nun in Zufälliger Reihenfolge in verschiedene Textboxen einlesen möchte. Doppelte Einträge dürfen nicht existieren, sprich jeder Wert aus der Exceltabelle darf nur einmal in einer Textbox auftauchen und in keiner weiteren. Als Beispiel nehmen wir mal dies : Sagen wir ich habe in der Exceltabelle 6 Namen, die 6 Namen sollen in der UserForm auf 6 Textboxen aufgeteilt werden und das Ganze in einer zufälligen Reihenfolge.

Das hat leider nicht so ganz funktioniert, wie ich es mir erhofft habe. Daher bin ich jetzt auf einen anderen Lösungsweg umgestiegen, allerdings auch dort wieder auf ein Problem gestoßen. Ich möchte nun 2 Tabellenblätter, die verschiedene Spaltengrößen haben, mit einem Knopfdruck in 2 seperate .prn Files schreiben. Diese sollen nacheinander erstellt werden, mit Benutzerdefiniertem-Namen. Hätte da jemand nen Vorschlag ? PRN-Format ist zwingend Notwendig, da somit die Formatierung erzeugt wird!

Ist mir klar, ganz so blöd bin nun auch auch nicht Ist ne Deutsche-Version. Ich werd mir mal nen anderen Lösungsweg suchen, habe gemerkt das es "so" auch sehr umständlich wird. Nichts desto trotz : Danke für die Hilfe!

Da mein Excel bei Do While Tabelle1.Cells(row, col) <> "" ein Object erfordert

Naja, er liest das Feld A1 zwar aus, aber dann passiert nichts mehr. Das einizge was ich umgestellt hab ist : Do While ActiveWorkbook.Sheets("Tabelle1").Cells(row, col) <> ""

Momentan nicht, bei uns wird die Telefonanlange neu verkabelt. Frühsten Montag hab ich wieder nen funktionstüchtigen Telefonanschluß

Danke für die schnelle Antwort, ich versuchs mal ! MfG LordHexa

Füge in die zweite Datei folgenden Code in die Spalte/Zeile ein, wo der Wert der 1. auftauchen soll. =[Daten.xls]Tabelle1!A4:D10 MfG LordHexa

Hallo zusammen, ich habe ein Makro geschrieben, das eine Exceltabelle in eine EDI*-Konforme Textdatei schreibt. Das Problem ist, das ich mit meinen bisherigen Schleifen jede Zeile+Zelle einzeln ansprechen muss. Ich geb mal einen kleinen Code-Ausschnitt: For nRow = 4 To 4 For nCol = 3 To 3 LENTemp = Range("C4").Text Delimiter = 8 - Len(LENTemp) For i = 1 To Delimiter LENLenght = LENLenght + " " Next i strFileText = strFileText & avarWksData(nRow, nCol) & LENLenght 'Var's leeren! LENTemp = "" Delimiter = "" LENLenght = "" Next strFileText = strFileText & avarWksData(nRow, nColsCnt) Next Der Delimiter dient der Formatierung, dessen Wert leider nicht für jede Zelle Konstant bleibt. Ich brauche eine Schleife die folgendes tut : - Zeile Zellenweise einliest - Wenn nach der Zelle X eine leere Zelle folgt, in die nächste Zeile springen usw. Ich hoffe das jemand ne Lösung parat hat. MfG LordHexa *EDI = EDI steht für Electronic Data Interchange und ist der Überbegriff für Industriestandards zum elektronischen Austausch von Geschäftsdokumenten.