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

Spalten markieren

Spalten markieren
05.06.2003 11:03:53
Steffen
Hallo leute,
ich versuch die ganze Zeit Spalten autom. zu markieren,um sie danach weiter zu bearbeiten!Jedoch gelingt es mir nich wirklich!
Problem:Ich rufe eine Exceltabelle auf,die startet durch betätigen eines Buttons ein anderes Exceldokument und in dem sollen die ersten drei Spalten markiert und danach sortiert werden.
Ich hab es schon mit zahlreichen Befehlen versucht,wie Columns...select,Range,Worksheet,etc.
Der meckert aber immerwieder an der selben Stelle.
Kann es seien,dass das Makro nich weiss,in welchem Blatt es arbeiten soll,ich hab es aber auch schon mit activate blatt sowieso probiert,klappt natürlich ebenso nich.
Wenn ich ein aufgezeichnetes Makro nehme dann gehts ebenso nich.
Nehm ich aber ein anderes Dokument(leer) und starte damit mein zweites Dokument dann klapps,nur nich in meiner bereits erstellten Tabelle!
Ich hoffe,dass jemand durchsieht und mir helfen kann!
Gruss Steffen

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spalten markieren
05.06.2003 11:10:20
PeterW

Hallo Steffen,

poste bitte den fraglichen Code und die Fehlermeldung.

Gruß
Peter

Re: Spalten markieren
05.06.2003 11:13:47
Nike

Hi,
dann poste mal deinen Code...

Bye

Nike

Re: Spalten markieren
05.06.2003 11:38:46
Steffen

Ist zwar etwas durcheinander,aber ich hoffe es geht

Private Sub OptionButton1_Click()
'Auswahl Deutsch
' Sub öffnen()
'
' öffnen Makro
' Makro am 05.06.03 von Alex Wunder aufgezeichnet
'
' Tastenkombination: Strg+o
'
ChDir "R:\Entwicklung\EE\Extern\Uebersetzung Thesaurus"
Workbooks.OpenText FileName:= _
"R:\Entwicklung\EE\Extern\Uebersetzung Thesaurus\lzs_deutsch.xls", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo:= _
Array(Array(1, 1), Array(2, 2), Array(3, 1))

Windows("lzs_deutsch.xls").Activate
'Sub ZeileKopieren()
'MsgBox ActiveWindow.RangeSelection.Rows
Range("A:C").Activate


'Worksheets("lzs_deutsch.xls").Select
'Worksheets("Tabelle2").Rows(1).Select
'Worksheets("Tabelle2").Paste
'End Sub

Call sortieren
'End Sub

End Sub
--------------------------

Sub sortieren()
'
' sortieren Makro
' Makro am 05.06.03 von Alex Wunder aufgezeichnet


' Tastenkombination: Strg+i
Windows("lzs_deutsch.xls").Activate
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A:C").Select
End Sub

Anzeige
Re: Spalten markieren
05.06.2003 11:52:10
Steffen

Ist zwar etwas durcheinander,aber ich hoffe es geht

Private Sub OptionButton1_Click()
'Auswahl Deutsch
' Sub öffnen()
'
' öffnen Makro
' Makro am 05.06.03 von Alex Wunder aufgezeichnet
'
' Tastenkombination: Strg+o
'
ChDir "R:\Entwicklung\EE\Extern\Uebersetzung Thesaurus"
Workbooks.OpenText FileName:= _
"R:\Entwicklung\EE\Extern\Uebersetzung Thesaurus\lzs_deutsch.xls", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo:= _
Array(Array(1, 1), Array(2, 2), Array(3, 1))

Windows("lzs_deutsch.xls").Activate
'Sub ZeileKopieren()
'MsgBox ActiveWindow.RangeSelection.Rows
Range("A:C").Activate


'Worksheets("lzs_deutsch.xls").Select
'Worksheets("Tabelle2").Rows(1).Select
'Worksheets("Tabelle2").Paste
'End Sub

Call sortieren
'End Sub

End Sub
--------------------------

Sub sortieren()
'
' sortieren Makro
' Makro am 05.06.03 von Alex Wunder aufgezeichnet


' Tastenkombination: Strg+i
Windows("lzs_deutsch.xls").Activate
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A:C").Select
End Sub

Anzeige
Re: Spalten markieren
05.06.2003 12:02:09
Nike

Hi,
mal so versuchen?

Bye

Nike

Re: Spalten markieren
05.06.2003 13:21:07
steffen

kannst du mir noch sagen,was du mit wkb1 und wkb2 meinst?

Re: Spalten markieren
05.06.2003 13:22:31
steffen

hat noch nich ganz geklappt,er verlangt nocgh nach nem objekt!

Re: Spalten markieren
05.06.2003 13:29:37
Nike

Hi,
nach welchem Objekt?
Du weißt schon das Du mit
"Private Sub OptionButton1_Click()"
den Code eines Option Buttons auf dem Worksheet
adressierst...
Wenn du ein Makro schreiben willst, das du über Alt+F8
ausführen willst, dann müßte die Prozedur eher so lauten:
Sub Importer()
...
end sub

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige