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

Bereich links neben aktiver Zelle kopieren

Forumthread: Bereich links neben aktiver Zelle kopieren

Bereich links neben aktiver Zelle kopieren
25.02.2004 07:46:20
AndreasS
Morgen,
gibt es mit VBA eine Möglichkeiten eine Bereich links neben der aktiven Zelle zu kopieren.
Also wie entirerow - activerzelle.select oder oo was...
Gruß und danke...
Andreas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bereich links neben aktiver Zelle kopieren
25.02.2004 08:05:19
Galenzo
Hallo Andreas,
Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy
sollte dir da weiterhelfen.
Funktioniert natürlich nicht in Spalte A (wegen -1) - das solltest du vorher also noch abfangen...
mfg
Danke :-)
25.02.2004 08:14:16
AndreasS
Danke für die schnelle Hilfe!
Gruß Andreas
Hilft mir leider nichts...
25.02.2004 08:20:48
AndreasS
...oder bin ich nur zu blöd?
Hier mal das Makro:

Sub Kopie_Bereich()
Dim iRow%
Dim i$
Dim rzelle As Range
Dim rTestRange As Range
Set rTestRange = Sheets("Kopien").[q1:q8]
For Each rzelle In rTestRange.Cells
Sheets("Daten").Activate
With Worksheets("Daten").Range("Q1:Q10")
Set c = .Find(rzelle, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Set c = .FindNext(c)
c.Select
With Sheets("Kopien")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy Worksheets("Kopien").Rows(iRow)
End With
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next rzelle
End Sub

Über jede Hilfe bin ich dankbar.
Gruß Andreas
Anzeige
AW: Hilft mir leider nichts...
25.02.2004 08:22:34
Galenzo
wat wilst du damit denn machen?
AW: Hilft mir leider nichts...
25.02.2004 08:28:45
AndreasS
Hi,
ich möchte im Bereich p1:p8 auf Tabellenblatt Kopien einen Wert suchen in Tabelle Daten Spalte Q. Dann A-P aus Daten kopieren in Kopien.
Fehler in Makro, so muss es heißen:

Sub Kopie_Bereich()
Dim iRow%
Dim i$
Dim rzelle As Range
Dim rTestRange As Range
Set rTestRange = Sheets("Kopien").[p1:p8]
For Each rzelle In rTestRange.Cells
Sheets("Daten").Activate
With Worksheets("Daten").Range("Q1:Q10")
Set c = .Find(rzelle, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Set c = .FindNext(c)
c.Select
With Sheets("Kopien")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy Worksheets("Kopien").Rows(iRow)
End With
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next rzelle
End Sub

Danke für deine Hilfe...
Anzeige
AW: Hilft mir leider nichts...
25.02.2004 08:33:37
Galenzo
Ändere mal die Zeile so:
Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy Worksheets("Kopien").Cells(iRow, 1)
Paßt das?
Ja, das paßt! :-)
25.02.2004 08:41:49
AndreasS
Danke nochmals für deine Hilfe, da wäre ich alleine so schnell nicht draufgekommen...
Gruß Andreas

Forumthreads zu verwandten Themen

kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
Kopieren in erste leere Zelle in aktiver Spalte
Robert

Hallo,
hoffe ihr könnt mir weiterhelfen, denn ich trete voll auf dem Schlauch...
Mein Problem ist, dass ich von Tabelle2 alle gefüllten Zellen der Spalte B ab "B4" kopieren müsste -
und da beginnt mein Problem - es sollte in die aktive Spalte (wird vor Makrostart aktiviert) der Tab...
02.11.2008 08:06:00
Thread-ID: 1021125
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Anzeige
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
Inhalt Zelle/Text mit "=" kopieren
Go

Hallo AlleMiteinander,
ich bin auf folgendes Problem gestossen, dessen Lösung ich suche:
Ein bestimmter Bereich eines Worksheets wird mit Textdaten beschrieben (deren Ursprung via CopyPaste aus einer anderen Anwendung stammen).
Diese werden etwas bereinigt und sollen anschliesend in...
20.12.2008 01:12:00
Thread-ID: 1034334
4 Beiträge
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Zelle kopieren, einfügen, nächste Zelle kopieren,
Andrea

Hallo,
ich hoffe, dass mir jemand bei meinem Problem helfen kann.
In dem Bereich B5:B50 habe ich im Tabellenblatt "TotalYear" Kostenstellen hinterlegt. Ich möchte B5 kopieren, xmal im Tabellenblatt "Upload Template" einfügen. Dann möchte ich B6 kopieren, xmal in dem Tabellenblatt "Upl...
10.03.2009 12:43:11
Thread-ID: 1058597
5 Beiträge
Anzeige
Inhalte von Zellen runterkopieren
Zellen

Hallo,
ich habe folgendes Problem.
in C1: =B2;in C2: = B10; in C3: =B18
Ich will also, dass in der Spalte C der Inhalt von B2 steht und zwar in 8er Schritten B2, B10 etc.
Nun will ich die drei Zellen markieren und runterziehen, so dass ich in C4=B24, C5=B32,... ; etc bekomme.<...
30.04.2009 17:11:31
Thread-ID: 1072244
4 Beiträge
Anzeige

Infobox / Tutorial

Bereich links neben der aktiven Zelle kopieren mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub Kopie_Bereich()
   Dim iRow%
   Dim rzelle As Range
   Dim rTestRange As Range
   Set rTestRange = Sheets("Kopien").[p1:p8]
   For Each rzelle In rTestRange.Cells
       Sheets("Daten").Activate
       With Worksheets("Daten").Range("Q1:Q10")
           Set c = .Find(rzelle, LookIn:=xlValues)
           If Not c Is Nothing Then
               firstaddress = c.Address
               Do
                   Set c = .FindNext(c)
                   With Sheets("Kopien")
                       iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                       Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy Worksheets("Kopien").Cells(iRow, 1)
                   End With
               Loop While Not c Is Nothing And c.Address <> firstaddress
           End If
       End With
   Next rzelle
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Entwicklertools > Makros > Kopie_Bereich > Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objektdefinierungsfehler"

    • Lösung: Stelle sicher, dass die benannten Blätter ("Daten" und "Kopien") existieren und die Zellenbereiche korrekt sind.

  • Fehler: "Fehler beim Kopieren des Bereichs"

    • Lösung: Überprüfe, ob der Bereich links neben der aktiven Zelle nicht in Spalte A liegt, da dort kein Bereich zum Kopieren existiert.

Alternative Methoden

Falls Du keinen VBA-Code verwenden möchtest, kannst Du auch folgende Methoden ausprobieren:

  • Formeln: Verwende die Funktion =LINKS(A1;LÄNGE(A1)-1), um den Text links neben der aktiven Zelle zu extrahieren. Diese Methode ist jedoch manuell und weniger flexibel.

  • Excel-Add-Ins: Es gibt verschiedene Add-Ins, die erweiterte Funktionen für das Kopieren von Zellen bieten. Diese können eine benutzerfreundliche Oberfläche zur Verfügung stellen.

Praktische Beispiele

  • Beispiel 1: Wenn Du den Bereich links von der Zelle B2 kopieren möchtest, achte darauf, dass Dein Makro korrekt auf die aktive Zelle verweist. Die Zeile Range(Cells(ActiveCell.Row, 1), ActiveCell.Offset(0, -1)).Copy sorgt dafür, dass der Bereich A2 kopiert wird.

  • Beispiel 2: Wenn Du mehrere Zellen in einem Bereich (z.B. P1:P8) durchsuchst, kannst Du den Inhalt von Spalte A bis P in das Blatt "Kopien" übertragen.

Tipps für Profis

  • Optimierung des Codes: Verwende Application.ScreenUpdating = False, um die Bildschirmaktualisierung während des Makros zu deaktivieren, was die Ausführung beschleunigt.

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Probleme zu vermeiden. Beispiel:

    On Error GoTo Fehlerbehandlung
' Dein Code hier
Exit Sub
Fehlerbehandlung:
   MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Kann ich das Makro auf andere Bereiche anpassen? Ja, Du kannst die Bereiche in Set rTestRange = Sheets("Kopien").[p1:p8] und Range("Q1:Q10") nach Deinen Bedürfnissen anpassen.

2. Was mache ich, wenn das Makro nicht funktioniert? Überprüfe die Blattnamen und Zellenbereiche. Stelle sicher, dass Du das Makro in einer unterstützten Excel-Version ausführst (z.B. Excel 2016 oder neuer).

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige