Hexagon

Ich weiß nicht... hier noch mal der aktuelle Code.... Private Sub cmdBTOK_Click() Dim iPages As Integer Dim iTmp As Integer Dim iTmp2 As Integer Dim iZaehler As Integer Dim iLength As Integer Dim strTmp As String Dim strTmp2 As String Dim strFileName As String Dim wrkBookNeu As Workbook Dim wrkBookOrg As Workbook If txtBoxUserName.TextLength < 1 Then MsgBox ("Kein Username eingegeben!") GoTo cmdBTOK_Click_Ende End If If txtBoxUserPasswort.TextLength < 1 Then MsgBox ("Kein Passwort eingegeben!") GoTo cmdBTOK_Click_Ende End If If txtBoxServer.TextLength < 1 Then MsgBox ("Kein Datenbankserver eingegeben!") GoTo cmdBTOK_Click_Ende End If Application.DisplayAlerts = False Set wrkBookOrg = Application.ActiveWorkbook iPages = ActiveWorkbook.Worksheets.Count For iTmp = 1 To iPages Set wrkBookNeu = Application.Workbooks.Add Do While (wrkBookNeu.Worksheets.Count > 1) wrkBookNeu.ActiveSheet.Delete Loop wrkBookOrg.Sheets(iTmp).Copy after:=wrkBookNeu.Sheets(1) wrkBookNeu.Sheets("Tabelle3").Delete strFileName = wrkBookNeu.ActiveSheet.Name iLength = Len(strFileName) For iZaehler = 1 To iLength 'Überprüfung der einzelnen Zeichen strTmp = Mid(strFileName, iZaehler, 1) If strTmp < Chr$(33) Then strTmp = "_" End If If strTmp = "<" Or strTmp = ">" Or strTmp = "/" Or strTmp = "\" Then strTmp = "-" End If strTmp2 = strTmp2 + strTmp strTmp = "" Next iZaehler 'iwrkBookNeu.SaveAs(strTmp2, xlCSV) wrkBookNeu.Close strTmp2 = "" strTmp = "" Next iTmp Application.DisplayAlerts = True End cmdBTOK_Click_Ende: End Sub Bei iwrkBookNeu.SaveAs(strTmp2, xlCSV) hängt er sich immer auf...

Aber nicht bei 7 Exceldatein à 19 Tabellen und das fast jeden Tag... :eek:

Fehler beim Kompilieren: Erwartet:=

Da bringt er mir immer einen Fehler!

So...nu klappt fast alles, aber wie kann ich ihm noch sagen, daß er die Blätter nicht als .xls sondern als .csv abspeichern soll?:confused:

Ähm...is mir a bissl peinlich......wie kann ich denn auf einzelne Zeichen eines String zugreifen?:confused:

Aha... ...also wieder alles per Hand - Buchstabe für Buchstabe...*Stöhn*... Aber trotzdem scho ma DANKE!! :e@sy :e@sy :e@sy

Ja - jup...Sheet-Titel war(/ist) es...

Weiß net wie man das nennt... ...jedenfalls hab ich's nun, aber nun muß ich den Dateinamen auf Sonderzeichen(z.B.: /, >, <, usw.) prüfen...wie geht das am schnellsten(/besten)?

Halt! Es funzt! Es funzt! Es funzt! *Vor Freude im Kreis hüpf* Es klappt! Es klappt!Es klappt!Es klappt!Es klappt! Private Sub cmdBTOK_Click() Dim iPages As Integer Dim iTmp As Integer Dim strTmp As String Dim wrkBookNeu As Workbook Dim wrkBookOrg As Workbook Application.DisplayAlerts = False Set wrkBookOrg = Application.ActiveWorkbook iPages = ActiveWorkbook.Worksheets.Count For iTmp = 1 To iPages Set wrkBookNeu = Application.Workbooks.Add Do While (wrkBookNeu.Worksheets.Count > 1) wrkBookNeu.ActiveSheet.Delete Loop wrkBookOrg.Sheets(iTmp).Copy after:=wrkBookNeu.Sheets(1) wrkBookNeu.Sheets("Tabelle3").Delete Rem wrkBookNeu.SaveAs FileName:="MeineMakros" Next iTmp Application.DisplayAlerts = True End cmdBTOK_Click_Ende: End Sub Nur noch das Speichern rein friemeln und dann Feierabend!...Hoffentlich... ...Öhm...wie bekomme ich den Namen der Tabelle her?:confused:

Ich bin mal ganz frech... ... Private Sub cmdBTOK_Click() Dim iPages As Integer Dim iTmp As Integer Dim strTmp As String Dim wrkBookNeu As Workbook Dim wrkBookOrg As Workbook Application.DisplayAlerts = False Set wrkBookOrg = Application.ActiveWorkbook iPages = ActiveWorkbook.Worksheets.Count For iTmp = 1 To iPages Set wrkBookNeu = Application.Workbooks.Add Do While (wrkBookNeu.Worksheets.Count > 1) wrkBookNeu.ActiveSheet.Delete Loop wrkBookOrg.Sheets(iTmp).Copy after:=wrkBookNeu.Sheets(1) wrkBookNeu.ActiveSheet.Delete Rem wrkBookNeu.SaveAs FileName:="MeineMakros" Next iTmp Application.DisplayAlerts = True End cmdBTOK_Click_Ende: End Sub Nu spinnt er wieder...vorhin klappte die Erzeugung der Tabellen, aber nur sagt er immer wieder "Falsche anzahl von Argumenten...." oder er macht nur die Hälfte....

Funktioniert! *Musik ein* Hurra, hurra! Alles ist super! Alles ist wunderbar!... *Musik aus* Und wie kann ich nun Kopieren? Ich weiß ich nerve, aber ich komme mit VBA halt nicht zurande...

Oder besser...Wie kann ich die 3 Blätter löschen ohne diesen "Sind sie wirklich sicher?" Dialog? Benutze zur Zeit folgendes: iPages = ActiveWorkbook.Worksheets.Count For iTmp = 1 To iPages Set wrkBookNeu = Application.Workbooks.Add wrkBookNeu.ActiveSheet.Delete Next iTmp Und da kommt dann immer "Sind Sie..." - das treibt mich in den Wahnsinn!

Hiho, habs so gemacht: Wie kann ich die 3 Standardblätter löschen?

Oje....VBA...argh... Danke...ich probiers ma...

Habs probiert mit Copy (Sheets(iTmp)), jedoch sagt er mir dann immer "Falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung"... ...warum kann VBA nich sein wie VC?

Ich glaub er wollte wissen, wie man die IP-Adresse bekommt...:eek:

Richtig! Ich programmiere hauptsächlich MFC mit dem VC... Nur soll ich das halt mal so eben machen...

Hallo, ich hab hier eine excel-Datei, die mehrere Blätter hat. Nun soll ich ein VBA-Skript schreiben, um diese in einzelne Datein zu speichern. Meine Fragen: 1. Wie komme ich einzeln an die Blätter ran? 2. Wie kann ich die ohne "Speichern-Dialog" sichern? 3. Da kommt bestimmt noch was... Thnx schonmal!

Ich kenn da nur VCM ( www.icqproxy.com )...

so richtig weiß ich das nich, aber kann man nicht der Administratoren-Gruppe die Rebootrechte entziehen und nur dem LocalAdmin geben?:confused:

Das ist keine Fehlermeldung! Er sucht nach einem Display-Typ für Blinde! Ich glaube man kann beim Booten (Boot-Menü) einen parameter mit geben, der das unterdrückt...bin mir aber nich ganz sicher....

Hi, Hier drauf klicken.... Hoffe da is was dabei....

Wenn du ein paar Tuts hast, so würde ich mich auch sehr freuen! Microsoft eMbedded Visual Tools 3.0 - Download <--- Viel Spass damit!

Uns was hintert dich an einer kompletten Neuinstallation?:eek: