Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2012to2016
2012to2016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Kopieren der aktiven Zelle und einer weitern Zelle (A6)

Forumthread: Kopieren der aktiven Zelle und einer weitern Zelle (A6)

Kopieren der aktiven Zelle und einer weitern Zelle (A6)
26.06.2025 21:45:11
gpott
Hallo,
vielleicht könnt Ihr mir hier im Forum bei meinem Problem helfen. Die aktive Zelle sowie eine feste Zelle soll kopiert werden. Das mit der aktiven Zelle funktioniert einwandfrei. Aber wie kann ich noch zusätzlich eine feste Zelle (A6) mit kopieren?

Sub google()
Range("L" & ActiveCell.Row).Copy "und hier noch die Zelle A6 dazu"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "http://google.com/"

Vielen Dank für Eure Hilfe
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren der aktiven Zelle und einer weitern Zelle (A6)
26.06.2025 21:56:42
Daniel
Probier mal ob

Range("L" & ActiveCell.Row & ",A6").Copy

Wie gewünscht funktioniert.

Gruß daniel
AW: Kopieren der aktiven Zelle und einer weitern Zelle (A6)
30.06.2025 13:55:40
gpott
Hallo, leider funktioniert das mit der Zelle A6 nicht. Vielleicht gibt es noch eine andere Lösung. Vielen Dank dafür.
AW: Workaround
01.07.2025 13:28:15
GerdL
Moin 
Range("A6").Copy Destination:=ActiveCell.Offset(0, 1)

ActiveCell.Resize(1, 2).Copy

Gruß Gerd
Anzeige
AW: Workaround
01.07.2025 15:54:59
schauan
Hi Gerd,

das wird auch nicht passen. Wenn z.B. C4 aktiv ist, da steht dort nix aus L4 in der Nähe :-(

Wichtig ist eben genau die Frage, die auch Daniel gestellt hat - im Prinzip, wie geht es nach dem Copy weiter ... Da im Codeschnipsel danach google aufgerufen wird, könnte ich mir vorstellen, dass da nix in einer Tabelle eingefügt wird sondern vielleicht bei Google eine Abfrage mit den Inhalten der beiden Zellen vorgenommen werden soll.

Das würde dann in diese Richtung gehen: 

Sub google()

Set wshshell = CreateObject("WScript.Shell")

wshshell.Run "http://google.com/search?q=" & Range("L" & ActiveCell.Row) & Range("A6")

End Sub


Womit wir wieder mal ganz gut mit Spekulatius unterwegs sind ...
Anzeige
AW: Kopieren der aktiven Zelle und einer weitern Zelle (A6)
01.07.2025 12:17:56
MCO
Moin!

Was stimmt denn mit 
Range("A6").Copy

nicht?
Was das soll verstehe ich allerdings nicht...

Gruß, MCO
AW: Kopieren der aktiven Zelle und einer weitern Zelle (A6)
01.07.2025 12:24:59
schauan
Hallöchen,

was kommt denn bei Dir, wenn Du z.B. A6 und L1 manuell auswählst und versuchst, das zu kopieren? Bei mir geht das nicht.

Anzeige
AW: Kopieren der aktiven Zelle und einer weitern Zelle (A6)
01.07.2025 14:38:05
daniel
Hi
in Excel kannst du zwei Zellen nur dann kopieren, wenn sie in der selben Zeile oder oder in der selben Spalte liegen, denn Excel wird versuchen, beim Einfügen die Zellen lückenlos hintereinander zu schreiben, und das funktioniert nur so.

was genau hast du denn vor?

du könntest dir die zwei Zellwerte zuerst in eine Zelle schreiben und dann diese kopieren. 
Range("A1").Value = Cells(activecell.row, 12) & Range("A6").value

Range("A1").Copy


oder du schreibst dir die Werte direkt in die Zwischenablage.

https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/paste-putinclipboard-settext-methods-example

Gruß Daniel
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum