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

definierte Markierung ansprechen

definierte Markierung ansprechen
24.07.2004 17:44:36
thomas
Hallo Leute,
unten ein Makro, mit dem ich Werte kopiere. Die definierte Markierung
n = Names("Markierung")
sollte dann mit
Application.Goto Reference:=n
angesprochen werden.
Das klappt jedoch nicht. Kann mir jemand weiterhelfen?
Gruss
thomas

Sub Abschreiben()
Dim iWks As Integer, r1 As Range, r2 As Range
Dim sp As Integer, ro As Integer, s1 As String, s2 As String
Dim n As String
n = Names("Markierung")
ro = ActiveCell.Row
sp = ActiveCell.Column
Set r1 = Range(Cells(ro, 3), Cells(ro, 4))
Set r2 = Range(Cells(ro, 9), Cells(ro, 10))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.Copy
Application.Goto Reference:=n
ScreenUpdating = True
Range(Cells(ro, sp + 2), Cells(ro, sp + 2)).Select
Selection.Paste
Application.CutCopyMode = True
ActiveWorkbook.Names("Markierung").Delete
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: definierte Markierung ansprechen
K.Rola
Hallo,
Option Explicit

Sub Abschreiben()
Dim iWks As Integer, r1 As Range, r2 As Range
Dim sp As Integer, ro As Integer, s1 As String, s2 As String
Dim n As Range
Set n = Range("Markierung")
ro = ActiveCell.Row
sp = ActiveCell.Column
Set r1 = Range(Cells(ro, 3), Cells(ro, 4))
Set r2 = Range(Cells(ro, 9), Cells(ro, 10))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.Copy
Application.Goto Reference:=n
ScreenUpdating = True
Range(Cells(ro, sp + 2), Cells(ro, sp + 2)).Select
Selection.Paste
Application.CutCopyMode = True
ActiveWorkbook.Names("Markierung").Delete
End Sub

Gruß K.Rola
Anzeige
Merci an K.Rola. ohne Text
24.07.2004 18:02:41
engel.thomas@gmx.ch

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige