UserForm Eingaben speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo NoNet

..weshalb stellst Du diese Frage dann in einem EXCEL-Forum, Dirk ?

Ich Denke bei UserForm und einer solchen allgemeinen Frage sollte das keinen unterschied machen ob ich das in Word oder Excel habe.
Das Tool was sich hinterher unter dem UserForm verbirgt ist natürlich auf word gemünzt

Das was Du beschreibst ist eher ein Fall für eine Datenbank oder zumindest für eine (Excel-)Datenmaske.

Nein.
In dem ersten Feld wir ein Dateiname eingetragen.
die beiden anderen Felder sind optionale Felder in denen Suchbegriffe eingetragen werden können.
eine Datenbank oder Datenmaske ist hier total übertrieben für, zumal die Datein auch eigendlich nicht mehr groß verarbeitet werden sondern lediglich aus "gedächnissstütze" im nachgang dienen sollen.
(fals man unterbrochen wurde wo war ich was hatte ich zuletzt gemacht)
Gruß
Dirk

Ok ich glaub ich hab eine Lösung die aber garantiert verbesserungswürdig ist
wenn einer also noch anregungen hat immer her damit :-D
Gruß
Dirk

Private Sub CommandButton1_Click()                  'Schreiben der .txt
inout = tb1.Value & ";" & tb2.Value & ";" & cb1.Value
F = FreeFile
Open "c:\test.txt" For Output As #F
Print #F, inout
Close #F
'Shell "cmd Echo " & inout & " >c:test.txt", vbNormalFocus
'UF1.Hide
End Sub


Public Function txt_ReadLine(ByVal sFilename As String, _
ByVal LineToRead As Long) As String
Dim F As Integer
Dim sLine As String
Dim lRow As Long
lRow = 0
' Existiert die Datei ?
If Dir$(sFilename)  "" Then
' Datei zum Lesen öffnen
F = FreeFile
Open sFilename For Input As #F
' Solange einlesen, bis entweder Dateiende
' oder gewünschte Zeilennummer erreicht
While Not EOF(F) And lRow

Private Sub UserForm_Initialize()           'einlesen der txt
On Error Resume Next
inout = txt_ReadLine("C:\test.txt", 1)
io = inout
i = InStrRev(inout, ";")                    'zerlegen in einzellne Variablen
s = i - 1
in1 = Right(inout, (Len(inout) - i))
inout = Left(inout, s)
i = InStrRev(inout, ";")
s = i - 1
in2 = Right(inout, (Len(inout) - i))
inout = Left(inout, s)
i = InStrRev(inout, ";")
s = i - 1
in3 = Right(inout, (Len(inout) - i))
inout = Left(inout, s)
If in1 = "Wahr" Then                        'ausfüllen der UserForm
cb1.Value = True
Else
cb1.Value = False
End If
tb2.Value = in2
tb1.Value = in3
End Sub

Private Sub CommandButton1_Click() 'Schreiben der .txt inout = tb1.Value & ";" & tb2.Value & ";" & cb1.Value F = FreeFile Open "c:\test.txt" For Output As #F Print #F, inout Close #F UF1.Hide MsgBox (tb1.Value & ";" & tb2.Value & ";" & cb1.Value) End Sub

Public Function txt_ReadLine(ByVal sFilename As String, _ ByVal LineToRead As Long) As String Dim F As Integer Dim sLine As String Dim lRow As Long lRow = 0 ' Existiert die Datei ? If Dir$(sFilename) "" Then ' Datei zum Lesen öffnen F = FreeFile Open sFilename For Input As #F ' Solange einlesen, bis entweder Dateiende ' oder gewünschte Zeilennummer erreicht While Not EOF(F) And lRow

Private Sub UserForm_Initialize() 'einlesen der txt On Error Resume Next inout = txt_ReadLine("C:\test.txt", 1) io = inout i = InStrRev(inout, ";") 'zerlegen in einzellne Variablen in1 = Right(inout, (Len(inout) - i)) inout = Left(inout, (i - 1)) i = InStrRev(inout, ";") in2 = Right(inout, (Len(inout) - i)) inout = Left(inout, (i - 1)) i = InStrRev(inout, ";") in3 = Right(inout, (Len(inout) - i)) inout = Left(inout, (i - 1)) If in1 = "Wahr" Then 'ausfüllen der UserForm cb1.Value = True Else cb1.Value = False End If tb2.Value = in2 tb1.Value = in3 End Sub

Sub schreiben_in_textdatei() ' Die Textdatei muss schon existieren, vorhandener Text wird überschrieben ' Der Inhalt aller Textboxen (tb1 bis tbnn) wird zeilenweise in die txt-Datei geschrieben ' die geschriebenen Daten stehen in einer Zeile ' und sind durch Kommas getrennt. Dim c As MSForms.Control Open "c:\temp\wdText.txt" For Output As #1 'Dateiname und Pfad anpassen With UserForm1 For Each c In UserForm1.Controls If TypeOf c Is MSForms.TextBox Then x = x + 1 If c.Name = "TextBox" & x Then Write #1, c c = "" End If End If Next c End With Close #1 MsgBox "Speicherung ist erfolgt!", vbOKOnly, "Hinweis" End Sub

Sub lesen_aus_textdatei() Dim c As MSForms.Control Dim a(10) As Variant, i, x As Long, t As String Open "c:\temp\wdText.txt" For Input As #1 'Dateiname und Pfad anpassen i = 1 Do While Not EOF(1) Line Input #1, t a(i) = Replace(t, """", "") i = i + 1 Loop Close #1 For Each c In UserForm1.Controls If TypeOf c Is MSForms.TextBox Then x = x + 1 If c.Name = "TextBox" & x Then c = a(x) End If End If Next c End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm Eingaben speichern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread