Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon korfuweb vom 16.09.2022, 16:18 Options
Werte Kopieren per Makro und auf anderes Arbeitsblatt in bestimmte Zeile einfügen
Brauch mal wieder Hilfe von den VBA Profis hier!
Folgendes Problem:
Bestand ein Arbeitsblatt Namens „Aufmass“,
Ein Arbeitsblatt Namens „Leitungs_Nr“ .
Aus dem Arbeitsblatt „Aufmass“ sollen die Werte aus Zeile 2 (Zelle A-HZ) kopiert
werden und ins Arbeitsblatt „Leitung_Nr“ in eine Zeile (ab Zelle P) kopiert werden.
Bis hierher kein größeres Problem kann man ja kopieren und „Werte“ einfügen.
Jetzt kommt aber das Problem:
Das zu erstellende Makro muss wissen in welche Zeile er die Werte kopieren soll
???
Das heißt im Arbeitsblatt Aufmaß befindet sich in der Zelle C4 die Indexnr.
z.B. 1
Jetzt müßte das Makro folgende Aufgabe bewerkstelligen:
Nimm die „Werte“ aus Arbeitsblatt „Aufmaß“ Zeile 2 – Zelle A-HZ,
Nimm die Indexnr. In Zelle C4 addiere +3 (4) und kopiere die Werte in Arbeitsblatt
„Leitungs_Nr“ Zeile 4 an Zelle P
Ist so was mit Makroprogrammierung möglich ?
Für eure Hilfe wäre ich dankbar.
Gruß Volker
Folgendes Problem:
Bestand ein Arbeitsblatt Namens „Aufmass“,
Ein Arbeitsblatt Namens „Leitungs_Nr“ .
Aus dem Arbeitsblatt „Aufmass“ sollen die Werte aus Zeile 2 (Zelle A-HZ) kopiert
werden und ins Arbeitsblatt „Leitung_Nr“ in eine Zeile (ab Zelle P) kopiert werden.
Bis hierher kein größeres Problem kann man ja kopieren und „Werte“ einfügen.
Jetzt kommt aber das Problem:
Das zu erstellende Makro muss wissen in welche Zeile er die Werte kopieren soll
???
Das heißt im Arbeitsblatt Aufmaß befindet sich in der Zelle C4 die Indexnr.
z.B. 1
Jetzt müßte das Makro folgende Aufgabe bewerkstelligen:
Nimm die „Werte“ aus Arbeitsblatt „Aufmaß“ Zeile 2 – Zelle A-HZ,
Nimm die Indexnr. In Zelle C4 addiere +3 (4) und kopiere die Werte in Arbeitsblatt
„Leitungs_Nr“ Zeile 4 an Zelle P
Ist so was mit Makroprogrammierung möglich ?
Für eure Hilfe wäre ich dankbar.
Gruß Volker
Antwort 1 von coros vom 16.09.2022, 17:12 Options
Hallo Volker,
nachfolgendes Makro sollte dies erfüllen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgendes Makro sollte dies erfüllen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Kopieren()
With Sheets("Aufmaß")
.Range("A2:AZ2").Copy _
Sheets("Leitungs_Nr").Cells(.Range("C4") + 3, 16)
End With
End SubOliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von korfuweb vom 17.09.2022, 08:35 Options
Hallo Oliver,
die Formel funktioniert in so weit super leider kopiert er den Inhalt der
Zellen, was Formeln sind! Ich möchte aber die "Ergebnisse" also die
Werte kopieren.
Gruß Volker
die Formel funktioniert in so weit super leider kopiert er den Inhalt der
Zellen, was Formeln sind! Ich möchte aber die "Ergebnisse" also die
Werte kopieren.
Gruß Volker
Antwort 3 von coros vom 17.09.2022, 08:42 OptionsLösung
Hallo Volker,
dann eben so:
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
dann eben so:
Sub Kopieren()
With Sheets("Aufmaß")
.Range("A2:AZ2").Copy
Sheets("Leitungs_Nr").Cells(.Range("C4") + 3, 16).PasteSpecial Paste:=xlPasteValues
End With
End SubMfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Makro Zeichen finden, Zeile einfügen, Summe bilden
supportochse 04.05.2009 - 356 Hits - 2 Antworten
Makro: Kopierte Zellen als Werte einfügen
Stfansosl 05.06.2009 - 209 Hits - 3 Antworten
Zeile an bestimmte Stelle (nach parameter) einfügen
Touljo 26.08.2009 - 366 Hits - 9 Antworten
Zeile kopieren und an bestimmte Stelle einfüge!
Ulle-gt5 04.01.2010 - 239 Hits - 13 Antworten
Werte kopieren und in andere Tabelle einfügen
walter10 26.04.2010 - 395 Hits - 11 Antworten
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
