Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Einfacher Datenübertrag per Button

Forumthread: 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
Anzeige

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.
Anzeige
;

Forumthreads zu verwandten Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
Anzeige
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige