Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
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
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
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
....
AW: will bestimmten Zellbereich kopieren.
Radium2269
Vielen, vielen Dank, funktioniert bestens!
Mein Name steht übrigens auf meiner Mineralwaserflasche.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige