Argumenttyp ByRef unverträglich
06.05.2014 11:53:15
Peter
Beim Verlassen des Worksheets will ich mir gewisse Bereiche definieren.
Dabei soll die erste und letzte Zeile dem Range ("_F_KFIBU") entsprechen.
Diese Zeilennummern frage ich nachstehend ab. lngFirstRow wird die Zahl 7, lngLastRow wird die Zahl 362 zugewiesen.
Wenn ich dann weiter unten in der Funktion CreateBereich2222 die Zahl 7 durch die Varible lngFirstRow, resp. die Zahl 362 durch die Variable lngLastRow ersetze, erhalte ich die Fehlermeldung "Fehler beim Kompilieren: Argumenttyp ByRef unverträglich".
Ich verstehe nicht, was hier nicht in Ordnung ist.
Gruss, Peter
Private Sub Worksheet_Deactivate()
Dim lngFirstRow As Integer, lngLastRow As Integer, rCell As Range, lngColumn As Integer
'''erste Zeile anhand Range("_FKFIBU") bestimmen
With Me.Range("_F_KFIBU")
lngFirstRow = .Row
End With
'''letzte Zeile anhand Range("_FKFIBU") bestimmen
With Me.Range("_F_KFIBU")
lngLastRow = .Row + .Rows.Count - 1
End With
For Each rCell In Me.Range("C1:G1")
If rCell "" Then
Call CreateBereich2222(rCell.Value, Me, rCell.Column, 7, rCell.Column, 362)
Else
End If
Next
End Sub
Sub CreateBereich2222(strBereichsname As String, wkTabelle As Worksheet, zeUp As Long, spLinks As Long, zeDown As Long, spRechts As Long)
Dim Bereich As Range
Set Bereich = Worksheets(wkTabelle.Name).Range(wkTabelle.Cells(spLinks, zeUp), wkTabelle.Cells(spRechts, zeDown))
ActiveWorkbook.Names.Add _
Name:=strBereichsname, _
RefersTo:=Bereich, Visible:=True
End Sub