Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Rechnung mit Datenbank erstellt. Jetzt Funktion der Kundendaten erforderlich
#11
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.


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

Die Pfade musst Du wieder ändern.

Gruß
Max
[-] Folgende(r) 1 Nutzer sagt Danke an Max für diesen Beitrag:
  • derfonz68
Antworten Top
#12
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
Antworten Top
#13
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.


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

Gruß
Max
[-] Folgende(r) 1 Nutzer sagt Danke an Max für diesen Beitrag:
  • derfonz68
Antworten Top
#14
auch gut, sehr schön, danke!
Antworten Top
#15
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

Huh
Antworten Top
#16
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.

   
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste