Einzelnen Beitrag anzeigen
Alt 15.03.2019, 13:18   #5
smag
MOF User
MOF User
Standard

Hallo nochmal,
ich bin inzwischen etwas weiter, aber habe jetzt Probleme beim Kopieren selbst... Das ist mein Code bis jetzt:

Code:

    Dim ErgebnisA As Range
    Dim Suchdatum As String
    Suchdatum = Worksheets("START").Range("H56").Value
    
    Set ErgebnisA = Worksheets("SPA Budget").Range("C44:C96").Find(What:=Suchdatum, LookIn:=xlValues)
    
    If ErgebnisA Is Nothing Then
        MsgBox "Datum nicht gefunden - Bitte prüfe deine Eingabe auf der START-Seite!"
    Else
        'hier Befehle für kopieren
        Sheets("Verarbeitung").Select
        Range("B3:V3").Select
        Selection.Copy
        Sheets("SPA Budget").Select
        Cells(ErgebnisA, 4).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    End If
Es scheitert an der Zeile mit "Cells(ErgebnisA"...

Gruß,
smag
smag ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten