Microsoft Excel

Herbers Excel/VBA-Archiv

Werte ans Ende kopieren | Herbers Excel-Forum


Betrifft: Werte ans Ende kopieren von: Snewi
Geschrieben am: 13.02.2012 19:40:38

HAllo,

ich habe ein Spalte B:B mit Werten die von der Anzahl varieeren kann!
Jetzt habe ich einen Wert in Zelle F7! Dieser Wert soll immer ans Ende der Spalte B kopiert werden!
Wie sieht hier der Syntax aus?

Gruß

  

Betrifft: AW: Werte ans Ende kopieren von: ransi
Geschrieben am: 13.02.2012 19:47:02

HAllo

Du musst die letzte gefüllte Zelle in B:B suchen und dann eins nach unten.

MAch mal so:

Option Explicit

Sub machs()
    Dim Wohin As Range
    With Sheets("Tabelle1")
        Set Wohin = .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
        .Range("F7").Copy Wohin
    End With
End Sub




ransi


  

Betrifft: AW: Werte ans Ende kopieren von: Snewi
Geschrieben am: 13.02.2012 20:21:31

Ich möchte gerne nur den Wert kopieren der in der Zelle steht!

Gruss


  

Betrifft: AW: Werte ans Ende kopieren von: ransi
Geschrieben am: 13.02.2012 20:26:08

HAllo

DAnn so ?

Sub machs()
    Dim Wohin As Range
    With Sheets("Tabelle1")
        Set Wohin = .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0)
        Wohin.Value = .Range("F7").Value
    End With
End Sub



ransi


  

Betrifft: AW: Werte ans Ende kopieren von: Snewi
Geschrieben am: 13.02.2012 20:37:12

Und nur die Formel?


  

Betrifft: AW: Werte ans Ende kopieren von: ransi
Geschrieben am: 13.02.2012 21:08:32

Hallo

Ungetestet:

Wohin.formula = .Range("F7").formula

ransi


  

Betrifft: AW: Werte ans Ende kopieren von: Snewi
Geschrieben am: 13.02.2012 21:19:49

super!
noch was anderes!

wenn ich Werte aus der Spalte aktualisiere ändert sich auch der Wertebereich fürs Diagramm!
Wie kann ich den Wertebereich auf die aktuelle Abfrage aktualisieren?

Gruß


  

Betrifft: AW: Werte ans Ende kopieren von: Detlef
Geschrieben am: 14.02.2012 09:41:39

Hallo,

dynamisiere den Wertebereich mit der Funktion bereich.verschieben.

Gruß Detlef


Beiträge aus den Excel-Beispielen zum Thema "Werte ans Ende kopieren"