Noch mal an Oberschlumpf - Speicherproblem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten,
danke für Deine schnelle Hilfe noch einmal.
Nun kann ich die Rechnung mit einem gesondertem Namen versehen,
aber beim Probieren habe ich gemerkt das die Inputbox nicht mehr erscheint zum Speichern als Angebot.
Was ist dann wenn ich z.B. mehrere Angebote an ein und denselben Kunden schicke. Dann gibt es die Datei mit diesem Namen ja schon, es ist zum Beispiel so, das in diesem Fall Ein Kunde eine Wohnungsgesellschaft ist die immer wieder Angebote anfordert.
Da wäre es also sinnvoll auch beim Speichern als Angebot einen eigenen Namen vergeben zu können, z.B.
"GGG_Müllerstr. 123" oder "GGG_Ludwigstr. 36".
Das Angebot als solches geht ja immer an die GGG (Gebäudegessellschaft), welche halt dann auch immer die gleiche Anschrift als solche hat.
Es wäre also schön wenn beim Speichern als Angebot noch die InputBox für den Dateinamen erscheint und vielleicht kannst Du mir da ja noch einmal helfen.
Dann wäre das Ganze perfekt........
Also dann vielen Dank noch einmal und einen schönen Sonntag noch
Frank

Hi Thorsten,
ich hab mir gerade mal Deinen Quelltext vorgenommen und ausgedruckt.
Ich will mal versuchen ob ich damit etwas klarkomme,
ein wenig Hab ich ja früher mal mit VB gemacht, das ist allerdings nun fast 5 Jahre her und ich habs seitdem nicht mehr geraucht, muss mich jetzt dafür mit S7 und Robotik befassen.
Mir ist im Code vom Modul 1 folgendes aufgefallen:


'wenn mit Inputbox für Dateiname, dann die nächsten 25 Zeilen (inkl Leerzeilen)
'auskommentieren (grün)
'und den darauf folgenden Do/Loop-Block aktivieren (schwarz)
If ThisWorkbook.Sheets(1).Range("KName").Value = "Name" Then
lbMsg = MsgBox("Tragen Sie bitte Name + Adresse des Kunden ein", vbExclamation, " _
Kundendaten fehlen")
Exit Sub
End If
lstrFil = Dir(pstrHVerz & lstrPfad & ThisWorkbook.Sheets(1).Range("KName").Value & ".xls")
Do Until lstrFil = ""
If Mid(Left(lstrFil, Len(lstrFil) - 4), Len(lstrFil) - 4 - 1, 1)  "_" Then
lstrFil = Left(lstrFil, Len(lstrFil) - 4) & "_" & liZaehler
lstrFile = lstrFil
liZaehler = liZaehler + 1
Else
lstrFil = Left(lstrFil, Len(lstrFil) - 5) & liZaehler
lstrFile = lstrFil
liZaehler = liZaehler + 1
End If
lstrFil = Dir(pstrHVerz & lstrPfad & lstrFil & ".xls")
Loop
liZaehler = 0
If lstrFile = "" Then
lstrFile = ThisWorkbook.Sheets(1).Range("KName").Value
End If
'        Do Until lboOK = True
'            lstrFile = InputBox("Geben Sie bitte einen Dateinamen ein", "Datei speichern")
'                If lstrFile = "" Then Exit Sub
'                If InStr(1, lstrFile, "\") = 0 And InStr(1, lstrFile, "/") = 0 And _
'                   InStr(1, lstrFile, "*") = 0 And InStr(1, lstrFile, "?") = 0 Then
'                            lboOK = True
'                        Else
'                            lbMsg = MsgBox("Geben Sie bitte einen gültigen Dateinamen ein",  _
vbExclamation, "Fehler")
'                End If
'        Loop

Würde dies die InputBox für den Dateinamen für das Angebot bedeuten, oder was passiert wenn ich die oberen Zeilen auskommentiere und den unteren Block aktiviere?
Gruß
Frank

Beliebteste Forumthreads (12 Monate)

Noch mal an Oberschlumpf - Speicherproblem

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Noch mal an Oberschlumpf - Speicherproblem

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread