Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Einfacher Datenübertrag per Button

VBA: Einfacher Datenübertrag per Button
22.06.2017 16:19:48
schen4ik
Hallo liebe Excelfreunde,
ich würde gerne per Button, mit VBA, meine Daten aus Tabellenblatt "Eingabe" die vertikal in Spalten eingegeben wurden (Gelbe Markierung) in ein anderes Tabellenblatt "Daten" in horizontaler Darstellung als"Hartwerte" übertragen. Der neue Datensatz sollte dann in der nächsten Zeile geschrieben werden.
Siehe als Beispiel den Anhang.
https://www.herber.de/bbs/user/114413.xlsm
Vielen Dank vorab für die Unterstützung.
Schen4ik

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hier der Code ... Transpose:=True
22.06.2017 16:56:01
Matthias
Hallo
Dim LoLetzte&
LoLetzte = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Datum usw.
Tabelle4.Range("G12:G15").Copy
Tabelle3.Range("A" & LoLetzte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:= _
True
'KatA
Tabelle4.Range("C18:C25").Copy
Tabelle3.Range("E" & LoLetzte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:= _
True
'KatB
Tabelle4.Range("F18:F24").Copy
Tabelle3.Range("M" & LoLetzte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:= _
True
Application.CutCopyMode = False
Gruß Matthia
Anzeige
AW: hier der Code ... Transpose:=True
22.06.2017 17:24:38
schen4ik
Hallo Mathias,
vielen Dank für die Rückmeldung.
AW: VBA: Einfacher Datenübertrag per Button
22.06.2017 17:02:01
UweD
Hallo
so ?
Sub trans()
    Dim TB2 As Worksheet, LR As Double
    
    Set TB2 = Sheets("Daten")
    
    LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row + 1
    
    'Daten übertragen 
    With Sheets("Eingabe")
        TB2.Cells(LR, 1).Resize(1, 4) = WorksheetFunction.Transpose(.Range("G12").Resize(4, 1))
        TB2.Cells(LR, 5).Resize(1, 8) = WorksheetFunction.Transpose(.Range("C18").Resize(8, 1))
        TB2.Cells(LR, 13).Resize(1, 8) = WorksheetFunction.Transpose(.Range("F18").Resize(8, 1))
    End With
    
    ' Formate aus Zeile 3 copieren 
    TB2.Rows("3:3").Copy
    TB2.Rows(LR).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

   
   
End Sub

LG UweD
Anzeige
AW: VBA: Einfacher Datenübertrag per Button
22.06.2017 17:25:16
schen4ik
Hallo Uwe,
vielen Dank für die Rückmeldung.
Funktioniert prima.
AW: VBA: Einfacher Datenübertrag per Button
22.06.2017 17:26:07
schen4ik
Hallo Onur,
vielen Dank für die Rückmeldung.
Deine Version funktioniert auch prima.

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige