Aus Makro ein zweites Makro aufrufen
28.08.2003 20:23:52
Jürgen
ich möchte aus einem Makro ein zweites Makro aufrufen und dabei einen Wert übergeben, welcher im ersten Makro festgestellt wurde. Den Code des zweiten Makros habe ich mit dem Makrorecorder aufgezeichnet, glaube aber, daß man ihn noch vereinfachen könnte. Bin für jede Hilfe dankbar.
Gruß,
Jürgen
Sub ZeileFinden()
Dim i As Long
With Worksheets("Kalkulation")
For i = 8 To .Range("FC65536").End(xlUp).Row
If .Cells(i, 159) > "0" Then
MsgBox "Zeile " & i
Hier soll Makro WerteBerechnen aufgerufen werden und die Zeilennummer übergeben werden
End If
Next i
End With
End Sub
'Hier sollen die Zeilennummer übergeben werden
'Zellbezeichnung ist noch statisch, soll aber die Zeilennummer aus Makro ZeileFinden annehmen.
Sub WerteBerechnen()
Range("FM8").Select
Selection.Copy
Range("FN8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("FK8").Select
Application.CutCopyMode = False
Selection.Copy
Range("FP8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("FI8").Select
Application.CutCopyMode = False
Selection.Copy
Range("FE8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub