24.07.2018, 11:44
Hallo Ihr Lieben,
das Thema wurde sicherlich hier schon einmal besprochen, jedoch kann ich die geschlossenen Themen nicht auf meinen Fall ganz anwenden. Vorweg keine VBA oder Makro Kenntnisse.
Folgendes soll realisiert werden.
Tabellenblatt 2 mit dem Daten Abzug dient als Grundlage für die Rohdaten. Die gesamten Daten aus diesem Tabellenblatt 2 und zwar nur drei Spalten B2,C2 und H2 sollen in das Tabellenblatt 1 in die Bereiche A2, B2 und C2 übertragen werden, mit Hilfe einer Schaltfläche.
Ich habe gesehen, dass es diese Codes gibt:
'Modul DieseArbeitsmappe
Private Sub Workbook_Open()
Tabelle3.Select
Tabelle3.Range("B,C,H") = ""
End Sub
Sub Schaltfläche1_KilckenSieAuf()
With Tabelle3.Range("B2,C2,H2")
.Copy
Tabelle3.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
.ClearContents
End With
End Sub
Wie wende ich für meinen Zweck richtig ein und wie komme ich zum Ziel.
Ich würde mich über jede Lehrstunde hier freuen.
Vielen Dank im Voraus.
das Thema wurde sicherlich hier schon einmal besprochen, jedoch kann ich die geschlossenen Themen nicht auf meinen Fall ganz anwenden. Vorweg keine VBA oder Makro Kenntnisse.
Folgendes soll realisiert werden.
Tabellenblatt 2 mit dem Daten Abzug dient als Grundlage für die Rohdaten. Die gesamten Daten aus diesem Tabellenblatt 2 und zwar nur drei Spalten B2,C2 und H2 sollen in das Tabellenblatt 1 in die Bereiche A2, B2 und C2 übertragen werden, mit Hilfe einer Schaltfläche.
Ich habe gesehen, dass es diese Codes gibt:
'Modul DieseArbeitsmappe
Private Sub Workbook_Open()
Tabelle3.Select
Tabelle3.Range("B,C,H") = ""
End Sub
Sub Schaltfläche1_KilckenSieAuf()
With Tabelle3.Range("B2,C2,H2")
.Copy
Tabelle3.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
.ClearContents
End With
End Sub
Wie wende ich für meinen Zweck richtig ein und wie komme ich zum Ziel.
Ich würde mich über jede Lehrstunde hier freuen.
Vielen Dank im Voraus.