Live-Forum - Die aktuellen Beiträge
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
Inhaltsverzeichnis

Problem mit aufgezeichneten Makro

Problem mit aufgezeichneten Makro
André
Hallo, schönen guten Tag!
Ich habe folgendes Makro mit dem Recorder aufgezeichnet:

Sub beide()
' beide Makro
' Makro am 25.04.2012 von User aufgezeichnet
Sheets("C").Select
Range("A1:B191").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Sheets("E").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("R").Select
Range("A1").Select
End Sub

Ich sprech es mit der Anweisung:
Application.Run "'Länderdiagramm.xls'!beide"
unter einem Button an. Das funktioniert soweit ganz gut. Ich habe aber zwei Probleme.
Wenn ich Blatt "E" und "C" ausblende habe ichn eine Fehlermeldung und wenn jemand die Datei umbenennt stimmt der Pfad auch nicht mehr.
Ich möchte das Makro nicht als Modul, sondern direkt unter dem Button laufen lassen habe aber Probleme, die ich leider nicht allein lösen kann, mit der "Range"- Anweisung. Bitte helft mir!!!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Problem mit aufgezeichneten Makro
26.04.2012 14:46:02
Reinhard
Hallo André
weise dem Button das makro "beide" zu.
Sub beide()
With Sheets("C")
.Range("A1:B191").Sort Key1:=.Range("B2"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.Range("A1:B191").Copy Sheets("E").Range("A1")
End With
Sheets("R").Visible = True
Application.Goto Sheets("R").Range("A1")
End Sub

Gruß
Reinhard
AW: Problem mit aufgezeichneten Makro
27.04.2012 08:26:11
André
Danke, Reinhard!
Es funktioniert genauso wie ich es mir vorgestellt habe.
Viele Grüße
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige