Supportnet / Forum / Tabellenkalkulation
Daten aus aktiven Blatt in anderes Blatt kopiern
Frage
Hallo erstmal ,
Ich habe versucht mit meinen geringen VBA Kenntnissen verschiedene Sachen aus dem Forum umzuschreiben leider komme ich nicht weiter.
Folgendes Problem:
Meine Kunden xls wird über verschiedene Userforms ausgefüllt.
Diese werden dann über ein Vorlagenblatt (Vorlage) eingefügt. Nach dem anlegen des Kunden (die Blätter haben Kundennamen) wollte ich mir aber gern eine Übersicht des neuen Kunden ausdrucken die einer gewissen Form entspricht. Dafür habe ich andere Vorlagenblätter (Vordruck1, Vordruck2). Nun wollte ich die Kundendaten des Aktiven Blattes in die zugehörigen Vordrucke einfügen. (die Daten müssen nur zu Drucken in den Blättern sein und können dann wieder gelöscht werden) Ganz super wäre es wenn ich bei den einzelnen Vordruckblättern die Blattanzahl bestimmen kann und den einen oder anderen Ausdruck abwählen kann?
Geht so was überhaupt?
Wäre echt super wenn mir jemand helfen könnte.
Vielen Dank schon mal
MfG Fischi
Antwort 1 von Fischi40
Hallo nochmal...
hab schon mal was zusammen gewürfelt was dem ersten Teil meiner Frage recht nahe kommt...
nur leider kopiert er mir bei der VBA nicht aus dem aktiven Blatt sondern immer nur aus Blatt1.
Hat denn keiner nen Lösungsansatz?
hab schon mal was zusammen gewürfelt was dem ersten Teil meiner Frage recht nahe kommt...
Sub Daten_kopieren()
Worksheets("1").Cells(4, 6).Copy _
Worksheets("Vorlage1").Cells(11, 10)
Worksheets("1").Cells(4, 5).Copy _
Worksheets("Vorlage2").Cells(12, 10)
End Sub nur leider kopiert er mir bei der VBA nicht aus dem aktiven Blatt sondern immer nur aus Blatt1.
Hat denn keiner nen Lösungsansatz?
Antwort 2 von Annan
Hallo Fischi40,
nicht aus Sheet(1) sondern aus aktivem Sheet:
Sub Daten_kopieren()
ActiveSheet.Cells(4, 6).Copy _
Worksheets("Vorlage1").Cells(11, 10)
ActiveSheet.Cells(4, 5).Copy _
Worksheets("Vorlage2").Cells(12, 10)
End Sub
Bei deiner ersten Beschreibung habe ich etwas Probleme deinen Ausführungen zu folgen. Wenn du möchtest kannst du mir die Datei mal schicken(Mit genauen Ausführungen):
held1233@aol.com
MfG
nicht aus Sheet(1) sondern aus aktivem Sheet:
Sub Daten_kopieren()
ActiveSheet.Cells(4, 6).Copy _
Worksheets("Vorlage1").Cells(11, 10)
ActiveSheet.Cells(4, 5).Copy _
Worksheets("Vorlage2").Cells(12, 10)
End Sub
Bei deiner ersten Beschreibung habe ich etwas Probleme deinen Ausführungen zu folgen. Wenn du möchtest kannst du mir die Datei mal schicken(Mit genauen Ausführungen):
held1233@aol.com
MfG
Antwort 3 von Fischi40
Hallo Annan,
und natürlich auch an alle anderen...
ActiveSheet einfach aber wirkungsvoll.
Ich versuch erstmal alleine weiter (Danke trotzdem)und wenn noch Fragen sind...
Ich, weiß bei euch bin ich gut aufgehoben.
Vielen Dank nochmal
MfG Fischi
und natürlich auch an alle anderen...
ActiveSheet einfach aber wirkungsvoll.
Ich versuch erstmal alleine weiter (Danke trotzdem)und wenn noch Fragen sind...
Ich, weiß bei euch bin ich gut aufgehoben.
Vielen Dank nochmal
MfG Fischi

