Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextToColumns

TextToColumns
17.11.2014 19:51:02
Andreas
Hallo,
ich möchte eine Variable, die durch den Benutzer definiert wird, als Argument der Methode "TextToColumns" benutzen. Genauer, die Argumente "DecimalSeparator" und "Comma" und "Semicolon". Der user soll zum Beispiel auf einer Oberfläche diese Argumente definieren, und dann soll mit diesen Argumenten eine csv Datei geöffnet werden.
Sheets("calc").Range("B2:B35").TextToColumns(,xlDelimited, , , , ,True)
gibt mir immer den Fehler " Compile ERROR. Expected:=". Ich vetsehe nicht, wieso die Argumente oder die ganze Zeile vom Compiler als Variable angesehen wird.
Was mache ich hier falsch?
vielen Dank für einen Tipp!
Andreas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextToColumns
18.11.2014 09:19:24
yummi
Hallo Andreas,
gib mal vor deinen Argumenten an wofür die sind:
Sheets("calc").Range("B2:B35").TextToColumns(DataType:=xlDelimited,Space:=True)
ob Du mit True auf Space zugreifen wolltest weiß ich nicht, musst Du evtl anpassen
Gruß
yummi

AW: TextToColumns
18.11.2014 10:17:36
Andreas
Hallo Yummi,
vielen Dank für Deine Antwort.
Die Definition lautet:
expression.TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers)
"True" steht an Position 7, also soll die Position 7 der Argumente, also Comma:=TRUE sein.
Kann man überhaupt die von mir benutzte Notation in diesem Fall nehmen?
Die Methode funktioniert, wenn ich named Arguments beutze, aber dann kann ich keine Variablen einsetzen, oder doch?
Wenn ich nur ein Boolean als Argument habe, kann ich mit Variablen arbeiten. Das ist mein Ziel.
Ich habe das getestet, und es funktioniert nicht:
Dim myVar as Boolean
myVar = True
Sheets("calc").Range("B2:B35").TextToColumns DataType:=xlDelimited, Comma:=myVar
Fehler:
Runtime error '9'
Subscript out of range.
Die Notation mit Argumenten in Klammern funktioniert bei mir überhaupt nicht.
Andreas

Anzeige
AW: TextToColumns
18.11.2014 09:32:54
Daniel
Hi
du verwendest die Anweisung TextToColumns als einfachen Befehl, dh die Probgrammzeile enthält nur den Befehl und seine Parameter und nichts weiter.
In diesem Fall werden die Parameter des Befehls nicht in Klammern gesetzt! 
Sheets("calc").Range("B2:B35").TextToColumns ,xlDelimited, , , , ,True
Gruß Daniel

AW: TextToColumns
18.11.2014 10:27:52
Andreas
Hi Daniel,
OK, das funktioniert!
Vielen Dank!
Andreas

AW: TextToColumns
18.11.2014 10:58:39
fcs
Hallo Andreas,
so könnte es aussehen, wenn du das Trennzeichen variabel setzen möchtest.
Gruß
Franz 
Sub aaTest()
Dim strTrennzeichen As String
Dim rng As Range
Dim bolTab As Boolean, bolSemi As Boolean, bolComma As Boolean, _
bolSpace As Boolean, bolOther As Boolean, strOther As String
Set rng = Sheets("calc").Range("B2:B35")
strTrennzeichen = InputBox("Trennzeichen für Text in Spalten ( ,  ;  .  oder tab )", _
"Text in Spalten Zellbereich " & rng.Address(False, False), ";")
Select Case LCase(strTrennzeichen)
Case "" 'Abbrechen wurde gewählt
Case ".", ",", ";", "tab" 'zulässige Trennzeichen
Select Case LCase(strTrennzeichen)
Case "." 'Punkt
bolOther = True: strOther = strTrennzeichen
Case "," 'Komma
bolComma = True
Case ";" 'Semikolon
bolSemi = True
Case "tab" 'Tabulator
bolTab = True
End Select
With rng
.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
Tab:=bolTab, Semicolon:=bolSemi, Comma:=bolComma, Space:=bolSpace, _
Other:=bolOther, otherChar:=strOther
End With
Case Else
MsgBox "unzulässiges Trennzeichen"
End Select
End Sub

Anzeige
AW: TextToColumns
18.11.2014 11:43:26
Andreas
Hallo Franz,
genau diesen Code suchte ich!
Vielen Dank,
Andreas

301 Forumthreads zu ähnlichen Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
3
3
2
5
2
2
6
3
6
4
2
3
2
2
4
2
2
3
5
2
5
7
14