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 DOMMEl vom 02.12.2021, 23:55 Options
Fehler VBA Code -->In bestimmte Zelle kopieren
Hallo Ihr..
Ich habe folgenden VBA Code aber irgendwie weiß ich nciht wo der Fehler liegt. Mir fehlt der Satz, dass er den kopierten Inhalt nur in eine bestimmte Zelle einfügt und nicht da wo die maus gerade die zelle ausgewählt hat.
Private Sub CommandButton2_Click()
Range("C3").Select
Selection.Copy
Sheets("Kundennummer neu").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Kundennummer neu").Select
End Sub
Ich habe folgenden VBA Code aber irgendwie weiß ich nciht wo der Fehler liegt. Mir fehlt der Satz, dass er den kopierten Inhalt nur in eine bestimmte Zelle einfügt und nicht da wo die maus gerade die zelle ausgewählt hat.
Private Sub CommandButton2_Click()
Range("C3").Select
Selection.Copy
Sheets("Kundennummer neu").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Kundennummer neu").Select
End Sub
Antwort 1 von malSchauen vom 03.12.2021, 00:21 OptionsLösung
Hi,
Das ginge z.B. wie folgt:
Hier im Beispiel wird ins Tabellenblatt "Kundennummer neu" in Zelle "A2" kopiert. (Oder war mit "in eine bestimmte Zelle" etwas anderes gemeint?
bye
malSchauen
Das ginge z.B. wie folgt:
Range("C3").Copy
Sheets("Kundennummer neu").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Kundennummer neu").Select
Hier im Beispiel wird ins Tabellenblatt "Kundennummer neu" in Zelle "A2" kopiert. (Oder war mit "in eine bestimmte Zelle" etwas anderes gemeint?
bye
malSchauen
Ähnliche Themen
VBA Inhalt aus Zelle in nächste freie zelle übertragen
bokap1975 22.07.2008 - 91 Hits - 6 Antworten
VBA: Inhalt von 2 ListBoxen in eine Zelle kopieren
daManuu 05.11.2008 - 32 Hits - 3 Antworten
VBA - Text von Zelle B2 in Zelle A6 kopieren und fortlaufend
pedrotornado 17.01.2009 - 207 Hits - 3 Antworten
vba: zelle oberhalb der aktiven zelle suchen
EKG 21.11.2009 - 219 Hits - 3 Antworten
vba: zelle oberhalb der aktiven zelle suchen
EKG 24.11.2009 - 230 Hits - 9 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
