Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Auslesen von Checkboxen und Wiedergabe in Textdatei

Frage Entwicklung VB for Applications

Mitglied: CoffeeJunkee

CoffeeJunkee (Level 1) - Jetzt verbinden

05.05.2014 um 14:27 Uhr, 1492 Aufrufe

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?
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
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
Write #Dateinummer, Ausgabetext ' Text ausgeben.
Close #Dateinummer ' Datei schließen.
Ausgabetext = ""
Next lListBox
'Ausgabetext = ""
End With

Irgendwas scheint noch 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?? :/ Hat jemand eine Idee?
Ähnliche Inhalte
Batch & Shell
gelöst Komplette Zeile aus Textdatei auslesen (3)

Frage von tegwert zum Thema Batch & Shell ...

Batch & Shell
gelöst Batch: Textdatei Zeilenweise auslesen (2)

Frage von CreatorX zum Thema Batch & Shell ...

Batch & Shell
gelöst Checkbox Event (11)

Frage von Markus2016 zum Thema Batch & Shell ...

Batch & Shell
gelöst Bestimmte Zeile einer Textdatei mit Batch auslesen (2)

Frage von PinkFLuffyUnicorn zum Thema Batch & Shell ...

Neue Wissensbeiträge
Humor (lol)

Taschenrechner in IOS kaputt!

(5)

Information von Lochkartenstanzer zum Thema Humor (lol) ...

Sicherheit

Kanadischer Geheimdienst veröffentlicht erstmals Sicherheitssoftware

(3)

Information von BassFishFox zum Thema Sicherheit ...

Virtualisierung

Docker Monitoring und Steuerung per "sen"

Tipp von Frank zum Thema Virtualisierung ...

Heiß diskutierte Inhalte
Windows 7
Abbruch bei Brennvorgang (19)

Frage von Simulant zum Thema Windows 7 ...

Router & Routing
Externe IP von innen erreichbar machen (16)

Frage von Windows10Gegner zum Thema Router & Routing ...

Firewall
WIndows 7 RDP Massen Angriff (14)

Frage von Motte990 zum Thema Firewall ...