Mit Funktion erste freie Zelle in anderem Workbook
25.03.2019 19:16:22
Patrick
bin ein Neuling mit VBA und habe noch massive Sprachprobleme:(
Daher habe ich auch ein ganz grundsätzliches Problem und hätte gerne eure Hilfe fürs Verständnis...
Ich habe ein workbook Ziel in dem ich ein Makro starten möchte, das mir aus einem anderen Arbeitsblatt (Quelle) die nächste freie Rechnungsnummer ermittelt und diese in eine Zelle einträgt.
Leider gibts dabei Sprachbarrieren:(
Ich habe folgende tolle Funktion, die mir die erste leere Zelle in einer Spalte mitteilt (ich _
muss schauen wo der letzte rechnungsname in Spalte 2 steht, um die Rechnungsnummer aus Spalte 1 _ zu bekommen).
Public Function rowErsteFreieZelle(ByVal sh As Worksheet, Optional ByVal col As Integer = 1, _
Optional ByVal starting_row As Integer = 1) As Long
Dim row As Long
row = starting_row
With sh
Do While (.Cells(row, col).Value "")
row = row + 1
Loop
End With
rowErsteFreieZelle = row
Exit Function
End Function
Diese soll mir aber nun den Wert eines Sheets eines anderen (offenen) workbooks ermitteln. Etwa so...
sub holMirEndlichDieRichtigeZeilennummer ()
dim Ergebnis as long
Ergebnis = rowerstefreieZelle(Tabelle1, 2, 1)
Alle Versuche, die ich bisher gestartet habe, sind leider fehlgeschlagen(workbook aktivieren, with thisworkbook, Funktion in die andere Datei packen und dort aufrufen, eine weitere Variable wkb für die Funktion usw.)Sie liefern mir immer nur Fehler oder die Zeilennummer des Ziel-Workbooks.
Auch verstehe ich nicht, warum ich das sheet nicht mit seinem von mir vergebenen Namen ansprechen kann und warum hier keine "" benötigt werden.
Bitte helft einem Sprechanfänger bei seinem ersten Gestammel:)
Vielen Dank bereits im voraus und liebe Grüße