Thema Datum  Von Nutzer Rating
Antwort
Rot Range().copy
20.09.2022 15:24:53 Thomas
NotSolved
20.09.2022 19:06:51 Gast72368
*****
Solved
22.09.2022 10:05:24 Thomas
Solved

Ansicht des Beitrags:
Von:
Thomas
Datum:
20.09.2022 15:24:53
Views:
262
Rating: Antwort:
  Ja
Thema:
Range().copy

Grüß euch,

ich stehe gerade beim Kopieren eines Zellbereiches in ein neues Tabellenblatt, unten mein Code.

Was passiert bei den ganzen:

bei doppelklick auf eine bestimmte Zelle wird der Zellinhalt analysiert, handelt es sich um eine 8 Stellige Nummer wird nach dieser Nummer in einem Auszug aus einer Datenbank gesucht(Tabellenblatt "Data_Input") --> Call find_first und find_last - gibt erste Zeile und letzte Zeile mit Treffer als range aus - bis dahin funktioniert noch alles --> MsgBox Rnga.Address & "   -   " & Rngb.Address gibt die richtigen Werte aus.

beim Kopieren mache ich was falsch, finde leider nicht raus was --> Laufzeitfehler 1004, hätte hier schon ein paar varianten probiert, komme aber aufs gleiche Ergebnis.

 

Bitte um kurze Hilfe,

danke

Thomas

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

Dim neuws As Worksheet

    If Not Intersect(Target, Range("T:T")) Is Nothing And IsNumeric(Target.Value) = True Then
    
        'MsgBox Target.Value
        
        newsheet = Target.Value
        Set neuws = Worksheets.Add

        
        With neuws
            .Name = newsheet
            .Move After:=Sheets(Sheets.Count)
            
        End With
        
        Call Find_First
        Call Find_Last
        
        MsgBox Rnga.Address & "   -   " & Rngb.Address

        Worksheets("Data_Input").Range(Cells(Rnga.Row, "A"), Cells(Rngb.Row, "Z")).Copy _
        Destination:=Worksheets(newsheet).Range("A1")
        
    End If
    
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
Rot Range().copy
20.09.2022 15:24:53 Thomas
NotSolved
20.09.2022 19:06:51 Gast72368
*****
Solved
22.09.2022 10:05:24 Thomas
Solved