AW: Arbeitsblatt in neues Workbook speichern
16.02.2010 07:32:59
Bernd
Erst einmal Danke für Deine Antwort
Hier mal der komplette Code. Übrigens, datei=lw+pfad+datop funtkioniert. In der Msgbox wird geneu der Dateipfad angezeigt den ich haben wollte. Habe ich auch schon öfters ohne Probleme gemacht. das gleiche Ergebnis wie bei der Verknüpfung mit &.
Nochmal das Problem : Ich habe alle relevanten Daten der Userform in das Arbeitsblatt kopiert.
Dieses Arbeitsblatt und nicht das gesamte Workbook soll per Mail versandt werden.
Private Sub cmdmail_Click()
Dim datop As String, datei As String
Application.ScreenUpdating = False
Sheets("Objektformular").Activate
With UFObjekt
Cells(26, 5).Value = .lbnummer
datop = "Objektmeldung" + "-" + .lbnummer.Caption
Cells(26, 3).Value = .Tberfdatum
Cells(27, 3).Value = .Cbart.Value
Cells(7, 2).Value = .Tbobjekttitel.Value
Cells(8, 2).Value = .Tbobjektstrasse.Value
Cells(9, 2).Value = .Tbobjektplz.Value + "-" + .Tbobjektort.Value
Cells(10, 2).Value = .tbbauherr.Value
Cells(11, 2).Value = .Tbhstrasse.Value
Cells(12, 2).Value = .Tbbhplz.Value + "-" + .Tbbhort.Value
Cells(20, 2).Value = .Cbhaendler.Value
Cells(21, 2).Value = .Tbhndstrasse.Value
Cells(22, 2).Value = .Tbhndplz.Value + "-" + .Tbhndort.Value
Cells(17, 2).Value = .Cbunternehmer.Value
Cells(18, 2).Value = .tbuntstrasse.Value
Cells(19, 2).Value = .Tbuntplz.Value + "-" + .Tbuntort.Value
Cells(13, 2).Value = .Carchitekt.Value
Cells(14, 2).Value = .Tbarchstrasse.Value
Cells(15, 2).Value = .Tbarchplz.Value + "-" + .Tbarchort.Value
Cells(16, 2).Value = .Tbarchname.Value
Cells(24, 2).Value = .Cbsystem.Value
Cells(30, 3).Value = .Tbflaechegeplant.Value
Cells(43, 2).Value = .Cbadm.Value
Cells(26, 7).Value = .Tbwvdatum.Value
'Cells(34, 2).Value = .Tbbemerkung.Value
textboxinhalt = .Tbbemerkung.Value
textlaenge = Round(Len(textboxinhalt) + 1)
Tabellenzeile = 34
runden = Round(textlaenge / 60 + 1)
For zaehler = 1 To runden
For zeichen = 1 To textlaenge
buchstabe = Mid(textboxinhalt, zeichen, 1)
If buchstabe = " " And zeichen > 65 Then
Cells(Tabellenzeile, 2).Value = Mid(textboxinhalt, 1, zeichen)
textboxinhalt = Mid(textboxinhalt, zeichen + 1, textlaenge - zeichen)
Tabellenzeile = Tabellenzeile + 1
Exit For
End If
Next
If textlaenge 36 Then Exit For
Next
Cells(38, 2).Value = .Cbstatus.Value
Cells(38, 7).Value = .Tbumsatz.Value
Cells(38, 5).Value = .Tbflaecherealisiert.Value
End With
Workbooks.Add
Set ziel = ActiveWorkbook.Worksheets(1)
Set quelle = ThisWorkbook.Worksheets("Objektformular")
datop = ActiveWorkbook.Name
'kopieren und einfügen
quelle.UsedRange.Copy ziel.Cells(1, 1)
'Speicher freigeben
Set quelle = Nothing
Set ziel = Nothing
datei = lw + pfad + datop
Hier fangen die Probleme an . bei Workbokk save sind beide Varianten möglich. Funtionieren tut _
keine.
'ActiveWorkbook.SaveAs Filename:=datei
'ActiveWorkbook.SaveAs Filename:=datop
Windows("Objektliste Planer").Activate
Windows(datop).Close
Application.ScreenUpdating = True
End Sub