Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

will bestimmten Zellbereich kopieren.

Forumthread: will bestimmten Zellbereich kopieren.

will bestimmten Zellbereich kopieren.
13.09.2004 16:23:33
radium2269
Hallo Gemeinde,
trotz Stöbern hier im Forum kann ich mein simples Problem nicht beantworten und frage nun euch:
Ich möchte in meinem Sheet Tabelle1 die zeilen 1 bis 499 abchecken, und wenn in der Spalte E "2004" steht, soll von dieser Zeile der Bereich Spalte A bis J in Sheet Tabelle2 (in die nächste leere Zeile) kopiert werden.
Ich seh bei VBA echt noch nicht durch, bitte helft mir...
Mein Versuch:
Dim i As Long
For i = Cells(499, 5).End(xlUp).Row To 1
If Cells(i, 5) = "2004" Then
Range("A:J").Copy _
Destination:=Sheets("Tabelle2").Range("A:J")
End If
Next i
End Sub
Anzeige
AW: will bestimmten Zellbereich kopieren.
ypsilon
hi,
komischen namen hast du ;-)
probier mal:

Private Sub daten_uebertragen()
Dim i As Integer
Dim zeile As Integer
zeile = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 499
If Cells(i, 5).Value = "2004" Then
Sheets("Tabelle2").Range("A" & zeile & ":J" & zeile).Value = Range("A" & i & ":J" & i).Value
zeile = zeile + 1
End If
Next i
End Sub

cu Micha
Anzeige
AW: will bestimmten Zellbereich kopieren.
udo
hi Micha ,
war grad auch drann was zu kreieren , aber dein code ist doch kleines bissel kürzer ...
super ... flutscht gut ;-)
darf ich dich bei der Gelegenheit auch kurz mal noch was fragen , warum deklarieren manche ihre Codes immer mit Private Sub anstatt nur mit Sub , wo liegt denn da eigentlich der Unterschied , nur mal so nebenbei ...
lieben Gruß
udo
Anzeige
AW: will bestimmten Zellbereich kopieren.
yps
hi Udo,
Private = Optional. Auf die Sub-Prozedur kann nur durch andere Prozeduren aus dem MODUL zugegriffen werden, in dem sie deklariert wurde
ist aber in diesem fall vollkommen egal. ich hatte nur gerade ein
Private Sub Worksheet_Activate()
in der mache und habe nur den namen ausgewechselt
cu Micha
Anzeige
alles klar , Danke schön , ... ;-) oT
udo
...
AW: will bestimmten Zellbereich kopieren.
geri
Hallo Udo
wenn du in Modul schreibst in erste Zeile
OPTION PRIVAT MODULE
sind alle Makros nicht sicht bar also via Extras/Makro nicht aufgelistet
PRIVAT SUB statt SUB ist dieses Einzelmakro nicht gelistet
gruss geri
auch vielen Dank ... ;-) oT
udo
....
Anzeige
AW: will bestimmten Zellbereich kopieren.
Radium2269
Vielen, vielen Dank, funktioniert bestens!
Mein Name steht übrigens auf meiner Mineralwaserflasche.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige