Parameterübergabe klappt nicht
05.11.2003 09:36:02
Tobias
ich möchte aus der sub sortieren() auf die sub suchen() zugreifen und folgendes übergeben(übernehmen):
"Verant." soll von sortieren zu suchen
zeile, spalte, ende von suchen zu sortieren
ich kann zeile, spalte und ende nicht als public deklarieren, da ich die suchen() sub in einer anderen sub mehrmals aufrufe
was mache ich falsch??
mein quellcode sieht so aus:
Public Sub suchen(was As String, zeile As Integer, spalte As Integer, ende As Integer)
Dim i As Integer, j As Integer
For i = 1 To 50 'Zeile absuchen
For j = 1 To 50 'Spalte absuchen
If Cells(i, j).Value = was Then 'Inhalt Zelle mit ges. Wort vergleichen
spalte = Cells(i, j).Column 'Spalte merken
zeile = Cells(i, j).Row 'Zeile merken
End If
Next
Next
ende = Range("k500").End(xlUp).Row 'letzte Zeile merken
End Sub
Private Sub sortieren()
Dim z As Integer, s As Integer, e As Integer
suchen ("Verantw.", z, s, e)
With Sheets("Direktgeschäft nach OO").Rows(zeile & ":" & ende)
.Sort Key1:=.Cells(z, s), Order1:=xlAscending, Key2:=.Cells(z, s - 1), _
Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End With
End Sub
thx 4 ur answers!