Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalte markieren

Spalte markieren
22.09.2005 09:43:49
Happy
Hi Leute...
Ich habe das Problem das ich eine ganze spalte markieren will. Aber es funktioniert einfach nicht. Obwohl der Befehl richtig ist. hier ist mal der Code. Schaut euch den bitte mal an. Vielen Dank
Windows("csvdatei.xls").Activate
ActiveWindow.Close
Windows("Auswertung.xls").Activate
Sheets("Daten").Select
Columns("A:A").Select ---- hier zeigt er den fehler an ---
Range("A1162").Activate
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte markieren
22.09.2005 09:46:58
Rene
Hi, versuches mal mit
Windows("csvdatei.xls").Activate
ActiveWindow.Close
Windows("Auswertung.xls").Activate
Sheets("Daten").Activate
Columns("A:A").Select
Range("A1162").Activate
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
lg René
Anzeige
AW: Spalte markieren
22.09.2005 09:50:58
Alexander
Hallo Happy.
Versuch's doch mal mit Columns(1).Select.
Gruß, Alex.
AW: Spalte markieren
22.09.2005 11:09:42
Happy
Also es funktioniert immer noch nicht. hierist nochmal die Fehlermeldung:
"selct method of range class faild"
Und ihr nochmal der Code dazu...
'On Error Resume Next
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.csv"
ActiveWindow.SmallScroll down:=-18
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.xls" 'öffnet workbook csvdatein.csv
Sheets(1).Select
Sheets(1).Copy After:=Workbooks("Auswertung.xls").Sheets("Auswertung")
Sheets(2).Name = "Daten"
Windows("csvdatei.xls").Activate
ActiveWindow.Close
Columns(1).Select --- Fehler hier ---
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
Sheets("Auswertung").Select
Range("E14").Select
Anzeige
AW: Spalte markieren
22.09.2005 10:16:10
Happy
Es geht mit beiden Varianten nicht? Habt ihr noch ne Idee?
MfG Happy Danke
AW: Spalte markieren
22.09.2005 10:21:40
Alexander
Also bei mir gehen beide Varianten.
Ist dein Blatt zufällig geschützt?
Gruß, Alex.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige