Hi Fonz,
hab den "Fehler" gefunden.
Der lag hier im "Speichern" Makro.
Code:
rngFreieZeile.Offset(0, 3) = .Cells(Rows.Count, 4).End(xlUp).Value
Du musst natürlich auf der Rechnung in Spalte "L" schauen und nicht in Spalte "D".
Code:
rngFreieZeile.Offset(0, 3) = .Cells(Rows.Count, 12).End(xlUp).Value
Ich habe Dir das hier nochmal zusammengepackt.
[
attachment=1140]
Die Pfade musst Du wieder ändern.
Gruß
Max
hehe..zig mal drauf geguckt und nicht gesehen.
ja, perfekt..ich dank dir 1000mal. So funktioniert es.
Ich versuche jetzt noch eine Routine zu finden, mit der ich nach einem Kunden suchen kann (falls die Liste zu groß wird), z.B. nach dem Kennzeichen (hab in der Eingabemaske Kundenart durch Kennzeichen ersetzt), und dieser dann sofort in die Rechnung übernommen wird.
Aber so kann ich schon arbeiten.
danke und schönes Wochenende
_fonz
Hi Fonz,
Zitat:...(hab in der Eingabemaske Kundenart durch Kennzeichen ersetzt)...
das habe ich nicht so recht verstanden.
Allerdings verstehe ich das Problem mit der Übersichtlichkeit, wenn die Liste zu groß wird.
Deswegen habe ich in die Kundenauswahl noch etwas mehr Funktionalität gebracht.
Gleichzeitig kannst Du jetzt aus der Kundenauswahl, wenn der Kunde noch nicht existiert,
einen neuen Kunden erfassen.
Schau es Dir einfach mal an.
[
attachment=1183]
Gruß
Max
auch gut, sehr schön, danke!
Hey Max,
kleines Problem.
Wollte gerade den Code austauschen und habe alles unter den Pfadangaben ersetzt, mit deinem neuen Code.
Jetzt allerdings bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren:
Methode oder Datenobjekt nicht gefunden
der Debugger zeigt die erste Zeile:
Private Sub UserForm_Initialize()
dann weiter unten:
Anzahl = objDic.Count
If Anzahl > 0 Then
.List = WorksheetFunction.Transpose(objDic.Keys)
End If
Set objDic = Nothing
End With
Hi Fonz,
hast Du in der Userform die ComboBox eingefügt?
Gruß
Max
Edit:
Und schau mal bitte im VBA-Editor unter Extras - Verweise
ob
Code:
Microsoft Forms 2.0 Object Library
aktiviert ist, wenn nicht dann bitte den Haken setzen.
[
attachment=1261]