Thema Datum  Von Nutzer Rating
Antwort
15.02.2019 09:40:21 RimRex
NotSolved
Blau Code
 15.02.2019 09:40:56 RimRex
*****
NotSolved
15.02.2019 13:15:42 Zwenn
NotSolved
15.02.2019 14:00:54 RimRex
NotSolved
15.02.2019 14:30:44 Gast18737
NotSolved
15.02.2019 15:02:53 Gast75798
NotSolved
15.02.2019 15:04:53 RimRex
NotSolved
15.02.2019 15:07:35 RimRex
NotSolved
15.02.2019 12:52:42 Zwenn
*
NotSolved

Ansicht des Beitrags:
Von:
RimRex		 Datum:
15.02.2019 09:40:56		 Views:
544		 Rating:
     
Antwort:
  Ja
Thema:
Code		 
Private Sub cmd_Start_Click()
    Dim Export_FSP_Kunden_Dateinamen As String
    Dim Export_FSP_Kunden_Tabellenname As String 'Von welcher Tabelle er Kopieren soll
    Dim Export_FSP_Kunden_Quelle As Worksheet
    Dim Export_FSP_Kunden_Ziel As Worksheet
    Dim Export_FSP_Kunden_ZielRanche As Range
    Dim asdf As String
    
    Export_FSP_Kunden_Dateinamen = Right(Me.txt_Export_FSP_Kunden, Len(Me.txt_Export_FSP_Kunden) - InStrRev(Me.txt_Export_FSP_Kunden, "\", , vbTextCompare))
    MsgBox (Export_FSP_Kunden_Dateinamen)
    Export_FSP_Kunden_Tabellenname = "_vExport_FSP_Kunden"
    
    On Error Resume Next
    Workbooks.Open Filename:=Me.txt_Export_FSP_Kunden
    On Error GoTo 0
    
    Export_FSP_Kunden_Quelle = Workbooks(Export_FSP_Kunden_Dateinamen).Worksheets(Export_FSP_Kunden_Tabellenname)
    Export_FSP_Kunden_Ziel = Workbooks(ThisWorkbook.Name).Worksheets("Export_FSP_Kunden")
    Export_FSP_Kunden_ZielRanche = Export_FSP_Kunden_Ziel.Range("A1")
     
    Export_FSP_Kunden_Quelle.UsedRange.Copy Export_FSP_Kunden_ZielRanche
    

End Sub

 

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
15.02.2019 09:40:21 RimRex
NotSolved
Blau Code
 15.02.2019 09:40:56 RimRex
*****
NotSolved
15.02.2019 13:15:42 Zwenn
NotSolved
15.02.2019 14:00:54 RimRex
NotSolved
15.02.2019 14:30:44 Gast18737
NotSolved
15.02.2019 15:02:53 Gast75798
NotSolved
15.02.2019 15:04:53 RimRex
NotSolved
15.02.2019 15:07:35 RimRex
NotSolved
15.02.2019 12:52:42 Zwenn
*
NotSolved