Rechnung mit Datenbank erstellt. Jetzt Funktion der Kundendaten erforderlich

[Max]

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.


  Test_Rechnungen_Max.zip (Größe: 62,51 KB / Downloads: 12)

Die Pfade musst Du wieder ändern.

Gruß
Max

[derfonz68]

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

[Max]

Hi Fonz,

...(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.


  Neue Rechnung.xls (Größe: 95 KB / Downloads: 25)

Gruß
Max

[derfonz68]

auch gut, sehr schön, danke!

[derfonz68]

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

[Max]

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.