Thema Datum  Von Nutzer Rating
Antwort
13.07.2017 13:29:33 Rudi
NotSolved
Blau VBA Daten aus Datei einlesen und in neue datei kopieren
13.07.2017 17:50:03 Ben
NotSolved
14.07.2017 09:25:46 Rudi
NotSolved
15.07.2017 13:05:53 Gast70117
NotSolved
17.07.2017 08:13:27 Rudi
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
13.07.2017 17:50:03		 Views:
586		 Rating:
     
Antwort:
  Ja
Thema:
VBA Daten aus Datei einlesen und in neue datei kopieren

Hallo,

es fehlt eine Funktion, mit der alle Tabellenblätter durchlaufen werden kann. Dabei wird der Name des Tabellenblattes mit dem gesuchten verglichen:

Function FindWorksheet(wbk As Workbook, sSheetName As String) As Worksheet
    Dim wsh As Worksheet
    With wbk
        For Each wsh In wbk.Worksheets
            If wsh.Name = sSheetName Then
                Set FindWorksheet = wsh
                Exit For
            End If
        Next
    End With
End Function

Die Funktion kann so aufgerufen werden:

Sub Test()
    Dim wsh As Worksheet
    Set wsh = FindWorksheet(ActiveWorkbook, "Tabelle1")
    If wsh Is Nothing Then
        MsgBox "Gesuchte Tabelle ist nicht vorhanden!"
    End If
End Sub

LG, Ben

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
13.07.2017 13:29:33 Rudi
NotSolved
Blau VBA Daten aus Datei einlesen und in neue datei kopieren
13.07.2017 17:50:03 Ben
NotSolved
14.07.2017 09:25:46 Rudi
NotSolved
15.07.2017 13:05:53 Gast70117
NotSolved
17.07.2017 08:13:27 Rudi
NotSolved