Microsoft Excel

Herbers Excel/VBA-Archiv

will bestimmten Zellbereich kopieren.

Betrifft: will bestimmten Zellbereich kopieren. von: radium2269
Geschrieben am: 13.09.2004 16:23:33

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

  


Betrifft: AW: will bestimmten Zellbereich kopieren. von: ypsilon
Geschrieben am: 13.09.2004 16:58:54

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


  


Betrifft: AW: will bestimmten Zellbereich kopieren. von: udo
Geschrieben am: 13.09.2004 17:22:25

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


  


Betrifft: AW: will bestimmten Zellbereich kopieren. von: yps
Geschrieben am: 13.09.2004 17:34:01

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


  


Betrifft: alles klar , Danke schön , ... ;-) oT von: udo
Geschrieben am: 13.09.2004 17:40:52

...


  


Betrifft: AW: will bestimmten Zellbereich kopieren. von: geri
Geschrieben am: 13.09.2004 17:35:52

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


  


Betrifft: auch vielen Dank ... ;-) oT von: udo
Geschrieben am: 13.09.2004 17:41:52

....


  


Betrifft: AW: will bestimmten Zellbereich kopieren. von: Radium2269
Geschrieben am: 14.09.2004 08:53:23

Vielen, vielen Dank, funktioniert bestens!

Mein Name steht übrigens auf meiner Mineralwaserflasche.


 

Beiträge aus den Excel-Beispielen zum Thema "will bestimmten Zellbereich kopieren."