Supportnet / Forum / Tabellenkalkulation
nur bestimmte Daten eines Tabellenblattes in ein anderes Blatt übernehmen
Frage
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 1 von Petra65
hat denn keine eine Ahnung wie das gehen könnte??? Da müßte doch ein Makro helfen können ;-)
Gruss - Petra
Gruss - Petra
Antwort 2 von DukeNT
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
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
hi DukeNT :-)
es fehlt an deklarierung der variablen :-))
gruss nighty
es fehlt an deklarierung der variablen :-))
gruss nighty
Antwort 4 von nighty
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 :-)
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 :-)