Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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