Sprunganweisung

Sub copy_benmark_trend(orginal, marke, quelle, ziel) Dim test As String ' In Excel-Report suchen und kopieren Windows(quelle).Activate Range("A1").Select 'Suchen Cells.Find(What:=orginal).Activate 'Kopieren ActiveCell.Offset(4, 1).Range("A1").Select ActiveCell.Range("A1:A2").Select Selection.Copy ' Excel für den Kunden Windows(ziel).Activate ' Suchen - Hier liegt das Problem!!! Application.Goto Reference:=marke ' Reinkopieren ActiveCell.Offset(1, 1).Range("A1").Select If IsEmpty(Selection) = True Then Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose: _ _ =False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sprunganweisung

18.08.2008 15:07:00

Daniel

AW: Sprunganweisung

19.08.2008 10:01:01

sylke

AW: Sprunganweisung

19.08.2008 11:01:00

Daniel

AW: Sprunganweisung

19.08.2008 11:29:53

sylke

HI
vielleicht durch überspringen mit der On Error Goto-Funktion, wobei meiner Einschätung nach eine saubere
Programmierung (z.B. fehlen bei allen Übergabeparametern die Variablentypen) eine derartige Maßnahme überflüssig machen würde:


Sub copy_benmark_trend(orginal, marke, quelle, ziel)
Dim test As String
' In Excel-Report suchen und kopieren
Windows(quelle).Activate
Range("A1").Select
'Suchen
Cells.Find(What:=orginal).Activate
'Kopieren
ActiveCell.Offset(4, 1).Range("A1").Select
ActiveCell.Range("A1:A2").Select
Selection.Copy
' Excel für den Kunden
Windows(ziel).Activate
On Error Goto Weiter
' Suchen - Hier liegt das Problem!!!
Application.Goto Reference:=marke
on error goto 0
' Reinkopieren
ActiveCell.Offset(1, 1).Range("A1").Select
If IsEmpty(Selection) = True Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose: _
_
_
=False
End If
Weiter:
on error goto 0
End Sub

sicherlich wäre es besser, schon im aufrufenden Code den an "marke" übergebenen Wert zu prüfen und dieses Makro nur aufzurufen, wenn dort ein gültiger Wert vorhanden ist.
Fehlervermeidung sollte Priorität vor Fehlerbehandlung haben.
Gruß, Daniel

Sub test() Dim n As Name Dim Check As Boolean Check = False For Each n In Application.Names If n.Name = "u_tt_1_by_trend" Then Check = True Exit For End If Next If Check Then Application.Goto reference:="u_tt_1_by_trend" Else MsgBox "Name nicht gefunden" End If End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sprunganweisung

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread