Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Funktion Werteübergabe

Funktion Werteübergabe
30.01.2020 19:47:03
Christian
Hallo Leute,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion Werteübergabe
30.01.2020 20:30:13
Luschi
Hallo Christian,
die Vba-Funktion heißt 'Letzte_Zeile_Spalte', also muß die Ergebniszuweisung
Letzte_Zeile_Spalte = lngY - 1
und nicht
Letzte_Spalte = lngY - 1
heißen.
Gruß von Luschi
aus klein-Paris
OPS: würdest Du mit Optiion Explicit arbeiten, hätte der Debugger die falsche Zuweisung angemeckert!
AW: Funktion Werteübergabe
31.01.2020 06:15:34
Christian
Danke für den Tipp.
Hat natürlich geklappt
AW: Funktion Werteübergabe
30.01.2020 21:01:20
GerdL
Hallo Christian,
....und, wenn das linke Argument in Cells erhöht wird, wird die Zeile verändert, nicht die Spalte.
Gruß Gerd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige