Thema Datum  Von Nutzer Rating
Antwort
13.06.2019 08:50:23 Gast68
NotSolved
13.06.2019 14:34:35 Yannick
**
NotSolved
13.06.2019 18:18:06 Gast68
NotSolved
Blau Daten aus Formular auf anderes Blatt übertragen
 13.06.2019 19:30:13 Gast7777
*
Solved
14.06.2019 07:34:18 Gast68
NotSolved
14.06.2019 08:08:07 Gast54504
*
NotSolved
14.06.2019 08:33:46 Gast68
NotSolved

Ansicht des Beitrags:
Von:
Gast7777		 Datum:
13.06.2019 19:30:13		 Views:
476		 Rating:
     
Antwort:
 Nein
Thema:
Daten aus Formular auf anderes Blatt übertragen

Wenn du programmieren willst, wie ein Amateur, kannst du natürlich hunderte fast identischer Zeilen untereinander reihen.

Aber du kannst stattdessen auch nur das hier nehmen:

    Dim AnzZ As Long
    AnzZ = Sheets("Tabelle1").Cells(Sheets("Tabelle1").Rows.Count, "C").End(xlUp).Row - 5
    Sheets("Tabelle1").Range("A1:A3").Copy
    Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Tabelle2").Range("A1:C" & AnzZ + 1).FillDown
    Sheets("Tabelle1").Range("C5:E" & 5 + AnzZ).Copy Sheets("Tabelle2").Range("D1")

Schade, dass hier auch Leute sich melden, die keine Ahnung haben und Ihr Halbwissen trotzdem weitergeben wollen.

Nett gemeint, aber ....

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.06.2019 08:50:23 Gast68
NotSolved
13.06.2019 14:34:35 Yannick
**
NotSolved
13.06.2019 18:18:06 Gast68
NotSolved
Blau Daten aus Formular auf anderes Blatt übertragen
 13.06.2019 19:30:13 Gast7777
*
Solved
14.06.2019 07:34:18 Gast68
NotSolved
14.06.2019 08:08:07 Gast54504
*
NotSolved
14.06.2019 08:33:46 Gast68
NotSolved