Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten auslesen und in .txt-Datei exportieren

Forumthread: Spalten auslesen und in .txt-Datei exportieren

Spalten auslesen und in .txt-Datei exportieren
14.08.2006 12:42:15
Düppi
Liebe VBA-Profis,
das unten stehende VBA liest tadellos aus einem Tabellenblatt Werte aus einem festgelegten Zeilen- und Spalten-Bereich aus und exportiert in sechs verschiedene .txt-Dateien. Soweit, so gut. Ich möchte aber Ausnahmen zulassen: Wenn in einer Zelle ein x steht, soll diese Zeile übersprungen werden und die nächste (oder übernächste, falls auch dort ein x steht) ausgelesen werden.
Sicherlich keine allzu komplizierte Ergänzung des folgenden VBA, hofft Düppi:

Private Sub CommandButton1_Click()
Dim arrNamen, n, i
arrNamen = Array("guetersloh", "rheda", "warendorf", "ahlen", "beckum", "oelde")
For n = 0 To UBound(arrNamen)
Open "c:\temp" & arrNamen(n) & ".txt" For Output As #1
For i = 5 To 52
Print #1, Sheets("Tabelle").Cells(i, 8 * n + 3) & vbTab & Sheets("Tabelle").Cells(i, 8 * n + 4)
Next
Close 1
Next
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten auslesen und in .txt-Datei exportieren
14.08.2006 13:07:10
Uduuh
Hallo,
wo steht das x? In A?

Private Sub CommandButton1_Click()
Dim arrNamen, n, i
arrNamen = Array("guetersloh", "rheda", "warendorf", "ahlen", "beckum", "oelde")
For n = 0 To UBound(arrNamen)
Open "c:\temp" & arrNamen(n) & ".txt" For Output As #1
For i = 5 To 52
With Sheets("Tabelle")
If .Cells(i, 1) <> "x" Then
Print #1, .Cells(i, 8 * n + 3) & vbTab & .Cells(i, 8 * n + 4)
End If
End With
Next
Close 1
Next
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Spalten auslesen und in .txt-Datei exportieren
14.08.2006 13:23:04
Düppi
Hallo Udo,
das x kann stehen in sechs verschiedenen Spalten (jede kennzeichnet schließlich die Orte wie guetersloh, rheda, warendorf etc.
Die Spalten sind: c, k, s, aa, ai, aq.
Probiere es bis zu einer möglichen Antwort von Dir besser mal nicht aus...
Gruß Düppi
AW: Spalten auslesen und in .txt-Datei exportieren
14.08.2006 13:27:11
u_
Hallo,
If .Cells(i, 8 * n + 3) "x" Then
Gruß
Lesen gefährdet die Dummheit
Anzeige
AW: Spalten auslesen und in .txt-Datei exportieren
14.08.2006 13:49:28
Düppi
Hallo Udo, Hallo u_,
Ihr habt mir sehr geholfen - läuft bestens, vielen Dank.
Gruß aus Oelde, Düppi
;

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Dateien aus- und einblenden
StKr69

Guten Morgen liebes Forum,
ich habe das Problem, gleichzeitig mehrere Dateien offenhalten zu müssen.
Um den Überblick nicht völlig zu verlieren, blende ich Dateien aus und sobald ich sie bearbeiten will wieder ein.
Über Fenster/Ein- bzw. Ausblenden kann ich das immer nur für eine Da...
04.12.2008 09:24:00
Thread-ID: 1030046
3 Beiträge
Aus- und einblenden mit einem Steuerelement
Maris

Hallo zusammen,
brauche mal euere Hilfe?!? Wie kann ich mit diesem Makro zeilen ein- und ausblenden mit nur einer Schaltfläche?
Public Sub Zeilen_ausblenden() Application.ScreenUpdating = False For i = 1 To 100 If Cells(i, 1).Value = "" Then Rows(i).Hidden = True End If Next i Applica...
29.01.2009 13:19:00
Thread-ID: 1044974
7 Beiträge
über userform spalten auswählen und kopieren
thomas

hallo zusammen
Leider kenne ich mich nicht so gut mit userforms aus. Vielleicht kann mir jemand weiterhelfen.
Ich habe folgende rießige Exceltabelle.
In der ersten Zeile in Tabellenblatt 1 sind die Überschriften (Spalte A bis CG)
Ab der 2. Zeile Zahlen und Text.
Wenn ich jet...
19.03.2009 22:02:02
Thread-ID: 1061993
7 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Spalten zählen und ausblenden
Sophie

Hallo liebe Forum-Leser!
Ich versuche in Excel sowas ähnliches wie MS Project darzustellen (weil das so gewünscht wird, fragt aber nicht warum).
Durch Datumseingabe (für Anfang und Ende des Projekts) will ich nur den Zeitstrahl (in Kalendeswochen) darstellen, so dass man die einzelne Sc...
15.06.2009 19:17:19
Thread-ID: 1081675
9 Beiträge
Anzeige
Lösungsvorschlag Ausblenden bei verbund. Spalten ?
alexander

Hallo,
ich würde vor der eigentlichen Problemstellung gerne erst einmal das zu bearbeitende Projekt beschreiben.
Es handelt es sich hierbei:
http://rapidshare.com/files/258656780/datei.xls.html
um eine Tabelle in der dynamisch über ein Dropdownfeld Spalten ausgeblendet werden s...
23.07.2009 13:13:34
Thread-ID: 1090706
8 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Zeilen/Spaltentausch und Ranking
Holger

Guten Morgen Excel-Experten.
Ich benötige euren Ratschlag bzw. eure Hilfe. Ich habe ein Tabellenblatt als Basis. Dort sind in Spalten Städte und in Zeilen Werte.
In einem zweiten Tabellenblatt soll ein Verweis auf das 1. Blatt, aber die Spalten und Zeilen müssen getauscht sein. Quasi wi...
16.09.2009 11:35:08
Thread-ID: 1103162
3 Beiträge
Spalten aus-einblenden
Fritz

Hallo, kann mir jemand helfen?
Wie kann ich aus ausgeblendeten Spalten gezielt mit einem Dropdownmenü einzelne Spalten wieder einblenden?
So wie bei "Blatt" aus und einblenden.
Für die Hilfe bereits im Voraus vielen Dank
Gruß
Fritz
29.11.2009 19:59:29
Thread-ID: 1120786
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige