Richtig referenzieren

Liebe Excel-Könner.
Mit dem folgenden Testcode habe ich versucht, Daten von einem Tabellenblatt in ein anderes zu befördern.
Es funzt zwar, aber ich würde dies gerne tun, ohne ständig zwischen den Blättern hin- und herzuhopsen, kriege aber die Referenzierung nicht auf die Reihe.
Zur Info: Beim Öffnen der Mappe wird das Blatt Sheets("Daten") selektiert. Ich würde gern erreichen, dass sich gar nichts mehr bewegt :-)


Sub VonEinerInDieAndere()
Dim zdat As Integer, zdr As Integer, wksdat As Worksheet, wksdr As Worksheet, zdatgefunden As Boolean
Set wksdat = Sheets("Daten")
Set wksdr = Sheets("DR")
wksdat.Activate
zdat = ActiveCell.Row
wksdr.Activate
zdr = wksdr.Cells(Rows.Count, 1).End(xlUp).Row + 1
With wksdat
Cells(zdr, 1).Value = .Cells(zdat, 1)
Cells(zdr, 3).Value = .Cells(zdat, 4)
End With
wksdat.Select
End Sub

Ich danke schon mal recht herzlich für Eure Mühe.
Grüße, Fritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub VonEinerInDieAndere() Dim zdat As Integer, zdr As Integer Dim wksdat As Worksheet, wksdr As Worksheet 'Dim zdatgefunden As Boolean Set wksdat = Sheets("Daten") Set wksdr = Sheets("DR") wksdat.Activate zdat = ActiveCell.Row zdr = wksdr.Cells(Rows.Count, 1).End(xlUp).Row + 1 With wksdat wksdr.Cells(zdr, 1).Value = .Cells(zdat, 1) wksdr.Cells(zdr, 3).Value = .Cells(zdat, 4) End With End Sub

Hallo Sepp.
Über eine Textbox in einem UF suche ich einen bestimmten Datensatz und selektiere eine Zelle in der Reihe ( Geschäftszeichen in Spalte 1 oder Nachname in Spalte 4). Mit r = Activecell.Row und dann Cells(r, 5) bis Cells(r, 130) oder so fülle ich dann das UF.
Bisher werden bei Wechsel des Datensatzes allerdings nur die Textboxen gefüllt, deren Inhalt ich dann teilweise auch als Quelle für z.B. Briefinhalte odgl. nutze.
Mein Anliegen von heute war, z.B. den Inhalt der Zelle A5 (D5 ist markiert) des Tabellenblattes "Daten" in einer Variablen zu speichern und deren Inhalt dann an der Stelle cells(Rows.Count, 1).End(xlUp).Row + 1 in dem Tabellenblatt "DR" abzulegen.
Es ging ja, aber mir kommt das ein wenig umständlich vor und ich hatte gehofft, dass man das eleganter hinbekommt, ohne das Tabellenblatt "DR" zu aktivieren.
Konnte man das verstehen?
Danke für Deine Mühe
Gruß, Fritz

Sub VonEinerInDieAndere() Dim rFind As Range Dim zdr As Integer, wksdat As Worksheet, wksdr As Worksheet Set wksdat = Sheets("Daten") Set wksdr = Sheets("DR") Set rFind = wksdat.Range("A:A").Find(What:=hierdieVariablevondeinerTextbox) If Not rng Is Nothing Then zdr = wksdr.Cells(Rows.Count, 1).End(xlUp).Row + 1 With wksdat Cells(zdr, 1).Value = .Cells(rFind.Row, 1) Cells(zdr, 3).Value = .Cells(rFind.Row, 4) End With End If End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Richtig referenzieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread