Clever-Excel-Forum

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 )

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

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

VIELEN DANK!!!

:17: :17:

Das ging ja MEGA schnell!

Stalky89

Kuwer

atilla

Stalky89