Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Probleme fall Excel

Mitglied: Cadsys-Chemnitz

Cadsys-Chemnitz (Level 1) - Jetzt verbinden

20.03.2009, aktualisiert 15:38 Uhr, 3228 Aufrufe, 3 Kommentare

Ich habe ein VB 2008 ein Programm geshcrieben welches mir bei erstellen von Angeboten hilft, Es hat eine Oberfläche mit der ich einige Konfigurationsparameter zusammenklickern kann Kundendaten eingeben kann und dann schreibt er mir das ganze in ein geschütztes Bestellformular vom Distributor welches Vorlage.xls heisst.

Dieses Druck ich dann aus und schicke es weg.


Mein Programm funktioniert soweit ganz gut, alle werte sind im Excelfile richtig eingetragen. jedoch möchte ich jetzt das mein Programm das ganze nicht wieder unter Vorlage.xls speichert sondern unter einem anderen Name.

Da ich diesen aber nicht immer eingeben will soll er automatisch als Firmenname.xls speichern.

dieser liegt in der Textbox4

nun zu meinem Problem...

Auszug aus meinem Programm


01.
Testa.ActiveWorkbook.ActiveSheet.Range("b9").Value = DateTimePicker1.Text 
02.
Testa.ActiveWorkbook.ActiveSheet.Range("b10").Value = DateTimePicker2.Text 
03.
Testa.ActiveWorkbook.ActiveSheet.Range("c6").Value = DateTimePicker3.Text 
04.
Testa.ActiveWorkbook.ActiveSheet.Range("b4").Value = DomainUpDown1.Text 
05.
 
06.
Testa.ActiveWorkbook.Saved = True 
07.
Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\vorlage.xls") 
08.
Testa.ActiveWorkbook.Close()
statt Vorlage.xls sollte jetzt was in der Form "textbox4.text".xls stehen

nur funktioniert das nicht. habe es so probiert ...

01.
Testa.ActiveWorkbook.ActiveSheet.Range("b9").Value = DateTimePicker1.Text 
02.
Testa.ActiveWorkbook.ActiveSheet.Range("b10").Value = DateTimePicker2.Text 
03.
Testa.ActiveWorkbook.ActiveSheet.Range("c6").Value = DateTimePicker3.Text 
04.
Testa.ActiveWorkbook.ActiveSheet.Range("b4").Value = DomainUpDown1.Text 
05.
 
06.
Testa.ActiveWorkbook.Saved = True 
07.
Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\"textbox4.text".xls") 
08.
Testa.ActiveWorkbook.Close()
kann mir einer helfen?


MfG tino
Mitglied: bastla
20.03.2009 um 16:17 Uhr
Hallo Cadsys-Chemnitz!

Versuch es so:
Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\" & textbox4.text & ".xls")
Die beiden "\" vor Formular sind vermutlich ein Tippfehler ...

Grüße
bastla
Bitte warten ..
Mitglied: 76109
20.03.2009 um 16:49 Uhr
Hallo,

So funktioniert's:

01.
With Testa.ActiveWorkbook 
02.
    With .ActiveSheet 
03.
        .Range("B9") = DateTimePicker1.Text  
04.
        .Range("B10") = DateTimePicker2.Text  
05.
        .Range("C6") = DateTimePicker3.Text  
06.
        .Range("B4") = DomainUpDown1.Text  
07.
    End With 
08.
   .Saved = True 
09.
   .SaveAs "M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\textbox4.text.xls" 
10.
   'oder wie bei bastla 
11.
   .Close 
12.
End With
Gruß Dieter
Bitte warten ..
Mitglied: Cadsys-Chemnitz
23.03.2009 um 07:43 Uhr
Vielen Dank Euch ,

konnte es zwar erst heute testen aber hat sehr gut funktioniert.


MfG

Tino
Bitte warten ..
Ähnliche Inhalte
Drucker und Scanner

Netzwerkdrucker - Probleme mit Excel-Jobsteuerung

gelöst Frage von Thomas91Drucker und Scanner6 Kommentare

Moin, ich hab gerade Probleme mit dem Treiber Konica Minolta 4750 Series PCL6 Version 1.0.1.0. Auf Printserver (OS: Windows ...

Windows Update

Fall Creators Update kann nicht installiert werden

gelöst Frage von PeterleBWindows Update7 Kommentare

Fehlermeldung 0x1900101 0x40017 Zwei Versuche des Updates von 1703 auf 1709 (AllInOne PC von Asus) Nun versuche ich die ...

Switche und Hubs

Am Netgear Switch fallen die Ports aus

Frage von SirAvalonSwitche und Hubs1 Kommentar

Hallo Leute, ich habe seit gestern das Problem das an dem 48 Port Switch von Netgear nachdem ich einen ...

Netzwerkmanagement

Infrastruktur intelligent anlegen (wie könnte das in meinen Fall aussehen?)

Frage von Hell-SpawnNetzwerkmanagement13 Kommentare

Hallo liebe Community, ich kümmere mich um die IT-Belange des mildtätigen Vereins meiner Mutter. Der Verein wird mit der ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 7 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 20 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 20 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...