online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Petra65 vom 14.09.2020, 20:20 Options

Lösung

nur bestimmte Daten eines Tabellenblattes in ein anderes Blatt übernehmen

Hallo,

ich habe mal wieder ein Problem in Excel. Ich möchte eine Tabelle für Kostenvoranschläge erstellen. Diese Kostenvoranschläge möchte ich variabel ohne viel Aufwand anpassen können

Ich habe also ein Tabellenblatt, in dem alle Grunddaten stehen, und ein zweites in den ich nur die Daten übernehmen möchte, die im ersten Blatt ausgewählt wurden.

Die Beispieltabelle ist zur besseren Erläuterun hier zu finden:
http://www.datei-upload.eu/file.php?id=e09433600b900cdec72cb62c5b959673


Nun zur Erklärung:
Blatt 1: Hier trage ich nur die benötigte Anzahl ein, die Summe wird automatisch berechnet.

Ich möchte nach Ende der Eintragungen, dass die Zellen, in denen ich Einträge vorgenommen habe in das Blatt 2 (ab A23) kopiert werden.

ABER WIE ???? Das muss doch irgendwie gehen!


Dankbar für jede Hilfe ...


Gruss
Petra


Antwort schreiben

Antwort 1 von Petra65 vom 15.09.2020, 18:36 Options

hat denn keine eine Ahnung wie das gehen könnte??? Da müßte doch ein Makro helfen können ;-)


Gruss - Petra

Antwort 2 von DukeNT vom 16.09.2020, 14:35 OptionsLösung

Lösung
Hallo Petra,
folgendes Makro kopiert ,wenn in Spalte A eine Zahl eingetragen wird, die Zellen A-F von Tabelle "Grundtabelle" in die letzte freie Zeile in Tabelle "Kostenvoranschlag".

Sub Eintragen()
Application.ScreenUpdating = False
lz1 = Sheets("Grundtabelle").Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To lz1
lz2 = Sheets("Kostenvoranschlag").Cells(Rows.Count, 1).End(xlUp).Row + 1
If IsNumeric(Sheets("Grundtabelle").Cells(a, 1).Value) Then
Range("A" & a & ":F" & a).Copy
Sheets("Kostenvoranschlag").Cells(lz2, 1).PasteSpecial Paste:=xlValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Gruß Niels

Antwort 3 von nighty vom 16.09.2020, 14:50 Options

hi DukeNT :-)

es fehlt an deklarierung der variablen :-))

gruss nighty

Antwort 4 von nighty vom 16.09.2020, 14:58 Options

hi DukeNT :-)

da viele mir ja noch was ein fuer dich :-))

statt eine schleife kannst du auch den autofilter nutzen,wenn du den suchbegriff auf nicht leere zellen beziehst :-)))

gruss nighty

p.s.
ein automatismus hinter der tabelle ,wuerde aber schicker aussehen :-)

Ähnliche Themen

Name aus der Zelle als Blatt-Name übernehmen
Rasful  04.09.2007 - 91 Hits - 3 Antworten

Daten erst an best. Datum übernehmen
LiPo  11.10.2007 - 63 Hits - 4 Antworten

Daten übernehmen
fritz001  01.12.2007 - 85 Hits - 2 Antworten

Daten vergleichen und wert übernehmen
Calea  09.12.2007 - 113 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 11:26:25 2026