| |

Visual-Basic EinsteigerZelleninhalte auffüllen erzwingen | |  | Autor: Christian1984 | Datum: 16.02.05 10:15 |
| Hallo zusammen,
ich habe ein kleine Problem, und zwar greife ich auf eine Excel Tabelle zu und und schreibe du ausgelesenen Werte in ein .txt-File. Kann ich hier bei festlegen wie lange die einzelenen Felder sein müssen? Ich post euch erst mal den relevanten Code:
Set xlWS = xlWB.Worksheets(xlWS_Name)
Do While (xlWS.Cells(zeile, 1)) > 0
vergleich = xlWS.Cells(zeile, 3)
If Mid(vergleich, 1, 1) = "H" Or Mid(vergleich, 1, 1) = "N" Then
Print #1, xlWS.Cells(zeile, 1), xlWS.Cells(zeile, 3), xlWS.Cells(zeile, 4), xlWS.Cells(zeile, 5), xlWS.Cells(zeile, 7)
i = i + 1
zeile = i
Else: i = i + 1
zeile = i
End If
Loop
MsgBox "Einlesen_complete", vbInformation, "msg"
So mein Problem ist nun wenn Zeile X Spalte 3 ein "H" enthält, ist dies der einzige Inhalt. Sollte Jedoch auf der ersten Stelle ein N stehen folgt ein Bindestrich und eine 8 Stellige Zahl. Also ist das Feld in der Länge = 10. Wie kann ich das beim Schreiben in das txt-File erzwingen?
Gruss Christian |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|