Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen 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
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
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
Anzeige
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
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
Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
2
3
3
8
1
3
3
2
4
2
3
8
2
9
1
2
20
6
7
1
2
1