|
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
|