Funktion Werteübergabe
30.01.2020 19:47:03
Christian
bin Anfänger und habe da mal eine Frage.
Warum bekomme ich den Wert aus der Funktion nicht in meine Variablen
Sub Daten_Übergabe()
'Die Variablen definieren
Dim longY As Long 'Letztes Feld das Daten hat Y richtung
Dim longX As Long 'Letztes Feld das Daten hat X richtung
Dim ranPaletten As Range
'Übergabe der ersten Zelle für die Palettendaten
Set ranPaletten = Range("B20")
'Aufruf der Funktion für den Y Wert zur letzten vollen Zelle
longY = Letzte_Zeile_Spalte(ranPaletten.Row, ranPaletten.Column)
MsgBox longY
End Sub
Public Function Letzte_Zeile_Spalte(lngY As Long, lngX As Long) As Long
Do While Cells(lngY, lngX).Value ""
lngY = lngY + 1
Loop
Letzte_Spalte = lngY - 1
MsgBox "Erste leere Zelle : " & Letzte_Spalte
End Function
Anzeige