Bestimmte Daten aus Zeile in andere Tabelle einfügen

[Stalky89]

Hallo zusammen, ich habe leider keine passende Antwort auf mein Problem gefunden.

Ich bräuchte ein Makro welches folgende Fuktion ausführt.

In der Tabelle A werden Daten erfasst (Spalte A,B,D,E,F und G). In der Tabelle B (Formular) sollen die Werte aus den Spalten eingetragen werden wenn die Zeile markiert wird.

Vorgang: in Tabelle A Zeile markieren und dann ein Button anklicken.

z.B.

Tabelle A        Tabelle B
(Zeile 2)
A2 -------------->C2
B2 -------------->C3
D2 -------------->C4
E2 -------------->C5
F2 -------------->C6
G2 -------------->C8

Tabelle A        Tabelle B
(Zeile 3)
A3 -------------->C2
B3 -------------->C3
D3 -------------->C4
E3 -------------->C5
F3 -------------->C6
G3 -------------->C8

Die Werte in der Tabelle B befinden sich immer an der selben Stelle, diese sollen beim nächten ausführen überschrieben werden. Und anschliessend soll Tabelle B automatisch gedruckt werden.

Ich hoffe ihr könnt mir diesbezüglich helfen.

(PS: ich habe noch nie ein Makro geschrieben, bislang nur welche verändert oder angepasst. :s )

[Kuwer]

Hallo,

z.B. so:

' **************************************************************
'  Modul:  Modul1  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub Button_Click()
 With ActiveCell.EntireRow
   Worksheets("Tabelle B").Range("C2").Value = .Cells(1).Value
   Worksheets("Tabelle B").Range("C3").Value = .Cells(2).Value
   Worksheets("Tabelle B").Range("C4").Value = .Cells(4).Value
   Worksheets("Tabelle B").Range("C5").Value = .Cells(5).Value
   Worksheets("Tabelle B").Range("C6").Value = .Cells(6).Value
   Worksheets("Tabelle B").Range("C8").Value = .Cells(7).Value
   Worksheets("Tabelle B").PrintOut
 End With
End Sub

Gruß Uwe

[atilla]

Hallo,

ich würde in so einem Fall vielleicht das Doppelklick Ereignis nutzen.

Unten stehender Code macht folgendes:
bei Doppelklick in den spalten A-G wird die Zeile in dem der Doppelklick ausgeführt wurde, in die Tabelle B übertragen und die Tabelle B wird gedruckt.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim varBereich
If Not Intersect(Target, Columns("A:G")) Is Nothing Then
 Cancel = True
 varBereich = Range(Cells(Target.Row, 1), Cells(Target.Row, 7))
 With Sheets("Tabelle B")
   .Range("C2:C8") = Application.WorksheetFunction.Transpose(varBereich)
   .PrintOut
 End With
End If
End Sub

[Stalky89]

VIELEN DANK!!!

  :17: :17:

Das ging ja MEGA schnell!