Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auslesen von Checkboxen/Wiedergabe in Textdatei
zurück: Ersetzen von Zeilen mit Bedingung weiter: Automatisch aktuallisierendes Dropdown Menü Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Anfängerin8719
Gast


Verfasst am:
30. Apr 2014, 10:56
Rufname:

Auslesen von Checkboxen/Wiedergabe in Textdatei - Auslesen von Checkboxen/Wiedergabe in Textdatei

Nach oben
       Version: Office XP (2002)

Hallo Leute!
Habe da ein großes Problem. Ich möchte verschiedene Checkboxen prüfen und wenn welche angehakt sind, soll aus mehreren Tabellenblättern die zu den Checkboxen gehörigen Zeilen ausgegeben werden. Das funktioniert aber nur bedingt. Es wird immer nur eine Zeile in die Datei geschrieben bzw. wenn ich in der Listbox mehrere Sachen anhake nur das letzte. Halbwegs verständlich? Razz
Hier mal eben mein bisheriger Code

ReDim arrItems(0 To ListBox1.ColumnCount - 1)


'For J = 0 To ListBox1.ListCount - 1
'For lListBox = 0 To ListBox1.ListCount - 1
'If ListBox1.Selected(J) Then

With ThisWorkbook.Worksheets(spname)

For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then

lZeile = ListBox1.List(lListBox, 1)

If UserForm1.Bewerten = True Then

'Kernbereich Nr und Text sowie GA1
TextKernMod = Worksheets(spname).Cells(lZeile, 3).Value & vbNewLine
TextKernMod = TextKernMod & Worksheets(spname).Cells(lZeile, 4).Value & vbNewLine

'Grundlegende Anforderungen 1
TextGrundAnf1 = Worksheets(spname).Cells(lZeile, 5).Value & vbNewLine
TextGrundAnf1 = TextGrundAnf1 & Worksheets(spname).Cells(lZeile, 6).Value & vbNewLine

'Grundlegende Anforderungen 2
TextGrundAnf2 = Worksheets(spname).Cells(lZeile, 11).Value & vbNewLine
TextGrundAnf2 = TextGrundAnf2 & "" & Worksheets(spname).Cells(lZeile, 12).Value & vbNewLine

'Grundlegende Anforderungen 3
TextGrundAnf3 = Worksheets(spname).Cells(lZeile, 17).Value & vbNewLine
TextGrundAnf3 = TextGrundAnf3 & "" & Worksheets(spname).Cells(lZeile, 18).Value & vbNewLine

End If
For a = 1 To 20
If UserForm1("Box" & a) = True Then
Select Case a
Case 1
Ausgabetext = Ausgabetext + TextKernMod
Case 2
Ausgabetext = Ausgabetext + TextGrundAnf1
Case 3
Ausgabetext = Ausgabetext + TextGrundAnf2
Case 4
Ausgabetext = Ausgabetext + TextGrundAnf3
Case 5
Ausgabetext = Ausgabetext + TextStaerken
Case 6
Ausgabetext = Ausgabetext + TextStaerken...
Case 7
Ausgabetext = Ausgabetext + TextBelege
Case 8
Ausgabetext = Ausgabetext + TextBewertungGA
Case 9
Ausgabetext = Ausgabetext + TextBewertung...
Case 10
Ausgabetext = Ausgabetext + TextS
Case 11
Ausgabetext = Ausgabetext + TextS...
Case 12
Ausgabetext = Ausgabetext + TextN
Case 13
Ausgabetext = Ausgabetext + TextN....
Case 14
Ausgabetext = Ausgabetext + TextVB
Case 15
Ausgabetext = Ausgabetext + TextV....
Case 16
Ausgabetext = Ausgabetext + LevelGA
Case 17
Ausgabetext = Ausgabetext + Level..
Case 18
Ausgabetext = Ausgabetext + Text..
Case 19
Ausgabetext = Ausgabetext + Text...
Case 20
Ausgabetext = Ausgabetext + Text...
End Select
End If
'a = a + 1
Next a


'MsgBox Ausgabetext
dateipfad = ThisWorkbook.Path
'dateipfad& "\" & spname & ".txt"

Dateinummer = FreeFile
Open dateipfad & "\" & spname & ".txt" For Output As #Dateinummer
Write #Dateinummer, Ausgabetext ' Text ausgeben.
Close #Dateinummer ' Datei schließen.
Ausgabetext = ""
Next lListBox
'Ausgabetext = ""
End With


(!!Die ... im Code stehen für vertrauliche Einträge, also die ich nicht zeigen kann!!")
Rudi M.
Gast


Verfasst am:
30. Apr 2014, 12:49
Rufname:

AW: Auslesen von Checkboxen/Wiedergabe in Textdatei - AW: Auslesen von Checkboxen/Wiedergabe in Textdatei

Nach oben
       Version: Office XP (2002)

Hallo,
mit
Open .... For Output As ...
überschreibst du die Datei immer wieder.

Teste mal
Code:
If Dir(dateipfad & "\" & spname & ".txt") = "" Then
  Open dateipfad & "\" & spname & ".txt" For Output As #Dateinummer
Else
  Open dateipfad & "\" & spname & ".txt" For Append As #Dateinummer
End If

Gruß
Rudi
Anfängerin8719
Gast


Verfasst am:
30. Apr 2014, 14:43
Rufname:

AW: Auslesen von Checkboxen/Wiedergabe in Textdatei - AW: Auslesen von Checkboxen/Wiedergabe in Textdatei

Nach oben
       Version: Office XP (2002)

Vielen Dank!! Ich hatte schon irgendwie geahnt, dass es irgendwo überschrieben wird. Da unten hab ich allerdings nie nachgesehen Smile Das sieht jetzt schon viel besser aus.
Eine Schleife scheint aber noch immer nicht richtig zu funktionieren. Die ausgwählten Zeilen werden zwar in die Textdateien geschrieben, allerdings 20 mal. Also die Anzahl der Checkboxen insgesamt. Geplant ist ja aber...ich habe ein Workbook mit jetzt 8 Worksheets. Es soll nachgesehen werden in welcher Checkbox ein Haken ist, dann soll die hinterlegte Zelle ausgelesen werden (klappt ja soweit) und dann sollen die 8 Blätter durchlaufen werden, um den darin befindlichen Text in die Dateien zu speichern.
Kann es sein, dass ich da einfach zu viele Schleifen drin habe?? :/
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: URL aus Link auslesen und in extra Zelle schreiben 2 missenberger2 3033 10. Apr 2007, 16:36
missenberger2 URL aus Link auslesen und in extra Zelle schreiben
Keine neuen Beiträge Excel Formeln: Aus externer Datei das Datum und die Zeit auslesen 2 norics 1209 28. März 2007, 08:47
norics Aus externer Datei das Datum und die Zeit auslesen
Keine neuen Beiträge Excel Formeln: Zellenadresse auslesen, wenn diese mit suchkriterium überein 2 Gast 2193 21. März 2007, 14:48
Gast Zellenadresse auslesen, wenn diese mit suchkriterium überein
Keine neuen Beiträge Excel Formeln: Zahlenreihe auslesen 3 psd 1189 12. März 2007, 12:18
fridgenep Zahlenreihe auslesen
Keine neuen Beiträge Excel Formeln: Automat. Wiedergabe von Daten einer Liste 2 philinn 487 02. März 2007, 09:50
philinn Automat. Wiedergabe von Daten einer Liste
Keine neuen Beiträge Excel Formeln: Am letzten Arbeitstag des Monats eine Zelle auslesen 6 godzilla0012 986 13. Nov 2006, 22:52
Günni Am letzten Arbeitstag des Monats eine Zelle auslesen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Namen des Tabellenblattes auslesen? 3 Sobo 1612 29. Aug 2006, 15:38
Gast Namen des Tabellenblattes auslesen?
Keine neuen Beiträge Excel Formeln: Ziffern aus einer Seriennummer auslesen 8 Tommy1 5030 25. Jul 2006, 11:09
Gast Ziffern aus einer Seriennummer auslesen
Keine neuen Beiträge Excel Formeln: Suche und Wiedergabe eines Datums 2 Gregor75 591 20. März 2006, 21:13
Gregor75 Suche und Wiedergabe eines Datums
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1615 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Zelle von links und rechts auslesen bis zum Leerzeichen 3 Sascha David 10506 17. Jan 2006, 14:31
Gast Zelle von links und rechts auslesen bis zum Leerzeichen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum