LordHexa

Nur so aus reinem Interesse :

Was versprichst du dir davon, bzw. wozu brauchst du es unbedingt?! :confused:

Ich werd's morgen testen.

Danke für die Antworten!

Ja, daran hab ich auch gedacht. Mich würde nur interessieren, ob es dafür eine Lösung gibt.

Code :

$abfrage = ("Select * from schrank where ID = $ID");

$info = mysql_query($abfrage);

while ($row = mysql_fetch_object($info))

{

.......

echo $row->Anzahl HE; <-- Darum dreht sich das Ganze

.......

Nabend zusammen,

ich hab folgendes Problem :

Ich möchte eigentlich ein ganz einfaches Echo einer Spalte machen.

Das Problem ist, das der Spaltenname ein Lehrzeichen enthält (Anzahl HE).

Wie bekomm ich das ausgegeben ?!

THX !

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.