Zelleninhalt auf zweites Blatt übernehmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zelleninhalt auf zweites Blatt übernehmen von: Thomas
Geschrieben am: 08.02.2005 12:12:42

Hallo zusammen,

kann mir einer sagen wie ich mit VBA den Wert einer Zelle auf ein zweites Sheet
übernehmen kann???

Ich will wenn ich die Zelle H5 makiere das der Wert zwei Zellen daneben (F5)
auf ein zweites Sheet in C1 übernehme. Wenn ich H10 makiere soll F10
übernommen werden.

Besten Dank

Mfg

Thomas

Bild


Betrifft: AW: Zelleninhalt auf zweites Blatt übernehmen von: Christian
Geschrieben am: 08.02.2005 13:43:18

Hi, mit Zelle markieren läuft nichts!
Du musst einen CommandButton oder irgendetwas einfügen...
Hier der restliche Code


Private Sub aaa()
Dim a As Integer
a = ActiveCell.Row
Cells(a, 6).Select 
    Selection.Copy
    Sheets("Tabelle2").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub
.

Gruß,
Christian


Bild


Betrifft: AW: Zelleninhalt auf zweites Blatt übernehmen von: HerbertH
Geschrieben am: 08.02.2005 13:50:29

wenn ich dich richtig verstanden habe,
müßte es so gehen:

'ins Tabellenmodul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
 Call x
End If
End Sub




Sub x()
Dim sh As Worksheet, c
Set sh = Sheets(2)
c = ActiveCell.Offset(0, -2).Value
sh.[c1].Value = c
End Sub


gruß Herbert


Bild


Betrifft: AW: Zelleninhalt auf zweites Blatt übernehmen von: werner h.
Geschrieben am: 08.02.2005 13:52:37

Hallo Thomas,

folgender Code muß in ein Modul deiner Arbeitsmappe:


Sub Test()
ActiveCell.Offset(0, -2).Copy
Sheets("Tabelle2").Range("C1").PasteSpecial
End Sub


du kannst dieses Makro dann einer schaltfläche od. tastenkombi zuordnen; auch ausführung bei doppelklick ist machbar.

Grüße
werner


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalt auf zweites Blatt übernehmen"