Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Texttocolumns in freigegebener Mappe

Forumthread: Texttocolumns in freigegebener Mappe

Texttocolumns in freigegebener Mappe
otto
Hallo zusammen,
bisher habe ich mit Excel XP gearbeitet.
Dort hatte ich ein freigegebenes Workbook, in der per Makro die Texttocolumns-Methode angewendet wird.
Dies funktionierte auch im Freigabemodus problemlos.
Mit Excel 2010 kommt aber nun eine Fehlermeldung, dass die Texttocolumns-Methode nicht mehr ausgeführt werden kann.
Hier mein Code (der bisher funktionierte): 

Range("B58").Select
Selection.TextToColumns Destination:=Range("B58"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Ich freue mich auf eure Vorschläge.
otto
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Texttocolumns in freigegebener Mappe
07.05.2012 18:17:51
Tino
Hallo,
kannst mal so versuchen.
Weil ich xl2007 habe, habe ich dies jetzt nicht getestet.
Dim VarValue
With Range("B58")
    VarValue = Replace(, ",", vbTab)
    VarValue = Replace(VarValue, ";", vbTab)
    VarValue = Replace(VarValue, " ", vbTab)
    Do While InStr(VarValue, vbTab & vbTab) > 0
        VarValue = Replace(VarValue, vbTab & vbTab, vbTab)
    Loop
    If Right$(VarValue, 1) = vbTab Then VarValue = Left$(VarValue, Len(VarValue))
    If Left(VarValue, 1) = vbTab Then VarValue = Right$(VarValue, Len(VarValue) - 1)
    VarValue = Split(VarValue, vbTab)
    
    .Resize(, Ubound(VarValue) + 1) = VarValue
End With
Gruß Tino
Anzeige
Korrektur, .Value vergessen! ...
07.05.2012 18:21:37
Tino
Hallo,
Dim VarValue
With Range("B58")
    VarValue = Replace(.Value, ",", vbTab)
    VarValue = Replace(VarValue, ";", vbTab)
    VarValue = Replace(VarValue, " ", vbTab)
    Do While InStr(VarValue, vbTab & vbTab) > 0
        VarValue = Replace(VarValue, vbTab & vbTab, vbTab)
    Loop
    If Right$(VarValue, 1) = vbTab Then VarValue = Left$(VarValue, Len(VarValue))
    If Left(VarValue, 1) = vbTab Then VarValue = Right$(VarValue, Len(VarValue) - 1)
    VarValue = Split(VarValue, vbTab)

    .Resize(, Ubound(VarValue) + 1) = VarValue

End With
sorry
Gruß Tino
Anzeige
AW: Korrektur, .Value vergessen! ...
08.05.2012 07:13:26
otto
Hi,
danke für die Antwort.
Funktioniert aber leider nicht.
Zum einen fehlten vor Replace die Punkte, zum anderen kann man bei Replace (so weit ich weiß?) nicht 3 Argumente eingeben.
Es kommt jedes mal eine Fehlermeldung.
Ich hatte es zum testen folgendermaßen abgeändert:
With Range("B58")
VarValue = .Replace(",", vbTab)
VarValue = .Replace(";", vbTab)
VarValue = .Replace(" ", vbTab)
Do While VBA.InStr(VarValue, vbTab & vbTab) > 0
VarValue = Replace(VarValue, vbTab & vbTab, vbTab)
Loop
If VBA.Right$(VarValue, 1) = vbTab Then VarValue = VBA.Left$(VarValue, VBA.Len(VarValue))
If VBA.Left(VarValue, 1) = vbTab Then VarValue = VBA.Right$(VarValue, VBA.Len(VarValue) - 1) _
VarValue = Split(VarValue, vbTab)
Resize(, UBound(VarValue) + 1) = VarValue
End With
Leider steht in meiner Zelle dann nur "WAHR" drin.
Vielleicht hat noch jemand eine Idee.
otto
Anzeige
AW: Korrektur, .Value vergessen! ...
08.05.2012 07:51:23
Tino
Hallo,
nee, nee war schon richtig so.
Evtl. fehlerhafter Verweis, sonst brauchst du nicht VBA. davor setzen!
Gruß Tino
Danke, Danke
08.05.2012 08:35:03
otto
Hi,
sorry, hatte wahrscheinlich einen Punkt vergessen?!
Funzt super, auch im Freigabemodus.
Kannst dir ein (virtuelles) Bier auf meine Kosten einlassen.
Besten Dank nochmal
otto
Anzeige
;

Forumthreads zu verwandten 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
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
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
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 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
Anzeige
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
csv-Datei öffnen + Daten gleich in Spalten
Hermann

Hallo,
auf meinem alten PC konnte ich csv-Dateien öffnen, so dass die durch Kommata getrennte Texte gleich in Spalten einsortiert wurden. Dazu öffnete ich zuerst eine EXCEL-datei und klickte dann die csv-datei an.
Das geht jetzt bei meinem neuen PC nicht auf Anhieb. Warum?
Wie kann...
14.11.2008 14:42:00
Thread-ID: 1024599
7 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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