Thema Datum  Von Nutzer Rating
Antwort
23.01.2016 12:37:55 Martin
NotSolved
23.01.2016 16:33:37 Gast83431
NotSolved
23.01.2016 18:37:58 Martin
NotSolved
23.01.2016 20:06:08 Gast77523
NotSolved
Rot neue Datei erstellen und diese Benennen
 23.01.2016 20:12:43 Gast33012
NotSolved
23.01.2016 21:17:28 Gast62899
NotSolved
25.01.2016 15:21:36 Gast2960
NotSolved
25.01.2016 15:23:00 Gast69358
NotSolved

Ansicht des Beitrags:
Von:
Gast33012		 Datum:
23.01.2016 20:12:43		 Views:
688		 Rating:
     
Antwort:
  Ja
Thema:
neue Datei erstellen und diese Benennen

Hallo,

im Prinzip so, die Click-Prozedur allen Buttons (Formular) zuweisen:

Option Explicit

Public Sub Button_Click()
Dim wbkBook As Workbook
Dim strPath As String, strFileExtension As String, strFileName As String
Dim lngButtonRow As Long
strPath = "C:\Auswertung\" '//anpassen.....
strFileExtension = ".xlsx"
lngButtonRow = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
strFileName = Cells(lngButtonRow, 1).Value & strFileExtension
If Dir$(PathName:=strPath & strFileName, Attributes:=vbNormal) <> "" Then
   On Error Resume Next
   Set wbkBook = Workbooks(strFileName)
   On Error GoTo 0
   If wbkBook Is Nothing Then
     Call Workbooks.Open(Filename:=strPath & strFileName)
   Else
     Call MsgBox("Die Mappe " & wbkBook.Name & " ist bereits geöffnet...", vbExclamation)
     Set wbkBook = Nothing
   End If
Else
   Call Workbooks.Add.SaveAs(Filename:=strPath & strFileName, FileFormat:=xlOpenXMLWorkbook)
End If
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.01.2016 12:37:55 Martin
NotSolved
23.01.2016 16:33:37 Gast83431
NotSolved
23.01.2016 18:37:58 Martin
NotSolved
23.01.2016 20:06:08 Gast77523
NotSolved
Rot neue Datei erstellen und diese Benennen
 23.01.2016 20:12:43 Gast33012
NotSolved
23.01.2016 21:17:28 Gast62899
NotSolved
25.01.2016 15:21:36 Gast2960
NotSolved
25.01.2016 15:23:00 Gast69358
NotSolved