none
VB Tabellenkopie Problem RRS feed

  • Allgemeine Diskussion

  • Hallo ich muss einen VB-Skript schreiben, die Aufgabe ist von einer Tabelle Datensätze nehmen und in eine andere Tabelle Kopieren, ich bekomm einen fehler. Kann mir jemand helfen bitte. Ich habe schon im netz gesucht keine klare Antwort gefunden.

    Sub Bereich_auslesen()
    
    Dim pfad As String, datei As String, Tabelle As String, Bereich As Range, Zelle As Object
    Dim r1 As Range, r2 As Range, r3 As Range, myMultiAreaRange As Range
    
    pfad = "C:\Users\Bayramuf\Desktop\SNOW"
    datei = "Auswertung Stand 2018.01.23.xlsx"
    Tabelle = "Übersicht Software Nutzung"
    
    Set r1 = Range("BH4:CH4")
    Set r2 = Range("D5:D140")
    Set r3 = Range("E5:E140")
    Set myMultiAreaRange = Union(r1, r2, r3)
    
    For Each Zelle In myMultiAreaRange
    
    Zelle = Zelle.NumberFormat = "0"
    
    
    ActiveSheet.Cells(Zelle.Row, Zelle.Column).Value = GetValue(pfad, datei, Tabelle, Zelle)
    Next Zelle
    
    End Sub
    
    Private Function GetValue(pfad, datei, Tabelle, Zelle)
    
    Dim Arg As String
    
    If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
    If Dir(pfad & datei) = "" Then
    GetValue = "datei NOT Found"
    Exit Function
    
    End If
    
    Arg = "'" & pfad & "[" & datei & "]" & Tabelle & "'!" & Range(Zelle).Range("D5:D140,E5:E140").NumberFormat = "0"
    
    GetValue = ExecuteExcel4Macro(Arg)
    
    End Function
    
    
    

    In dieser Zeile ist der Fehler.

    Arg = "'" & pfad & "[" & datei & "]" & Tabelle & "'!" & Range(Zelle).Range("D5:D140,E5:E140").NumberFormat = "0"

    Und Fehlercode

    Lauzeitfehler '1004':

    Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen.


    Dienstag, 23. Januar 2018 13:53

Alle Antworten

  • Hi,

    zuerst mal wegen der Begrifflichkeiten.

    Du postest im Visual Basic Forum, sprichst aber von einem VBScript. Der Code sagt aber, dass Du eher mit VBA arbeitest.

    Zur Erklärung: Alle drei haben zwar VB bzw. Visual Basic im Namen, sind aber jeweils etwas komplett anderes und außer ein wenig Gemeinsamkeiten bei der Syntax haben die drei Sachen nur sehr wenig miteinander zu tun.

    Daher die Frage: Du arbeitest in Office mit einem VBA Modul? Oder mit etwas anderem? Falls letzteres, mit was genau?


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET
    http://www.asp-solutions.de/ - Consulting, Development
    http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community


    Dienstag, 23. Januar 2018 16:27
    Moderator
  • Hallo Stefan,

    wie gesagt ich bin im Bereich sehr neu. Das habe ich im Excel unter makros erstellt und brauche Hilfe, weil ich soweit gekommen bin und seitdem ein fehler habe und nicht mehr weiter komme.

    Mittwoch, 24. Januar 2018 10:04