Top-Themen

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, 1515 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
Einen bestimmten Teil einer Textdatei auslesen
gelöst Frage von Focus1610Batch & Shell5 Kommentare

Hallo, ich brauche mal einen Denkanstoß. Ich bekomme per FTP von einem Kunden täglich mehrere Textdateien. Diese haben unterschiudlich ...

Batch & Shell
Auslesen der "LAN-Verbinung" in eine Textdatei
gelöst Frage von simonsaysBatch & Shell2 Kommentare

Hallo Gleich mal vorab: Ich bin ein Batch-Nullinger :-) Wir verwenden fixe IP-Adressen und fixe DNS-Server Jetzt hätte ich ...

Batch & Shell
Batch Textdatei Spaltenweise auslesen
Frage von PinkFLuffyUnicornBatch & Shell7 Kommentare

hi, ist es irgendwie möglich anstatt eine Textdatei via Batch Spaltenweise auszulesen und nicht zeilenweise wie das normal ganz ...

Batch & Shell
Variable in TextDatei auslesen
gelöst Frage von arvaxtrBatch & Shell5 Kommentare

Hallo Leute, ich habe eine TextDatei, in der eine Benutzervariable steht: %MyVar% ist als Benutzervariable in den Umgebungsvariablen definiert. ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 8 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 15 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 17 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 20 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...