zeilen in anderes Arbeitsblatt übernehmen, wenn ..

Bild

Betrifft: zeilen in anderes Arbeitsblatt übernehmen, wenn .. von: Butzi
Geschrieben am: 22.03.2005 12:51:44

Hallo,

ich möchte, dass jeweils die komplette Zeile z.B. Zeile 3 in ein anderes Arbeitsblatt übernommen wird, wenn ich z.B. in K3 ein "x" eingebe.

Kann mir da jemand helfen? Da ich kein Profi bin, bitte möglichst einfach.

Vielen Dank im Vorraus,

Gruß Butzi

Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wen von: Tobias Marx
Geschrieben am: 22.03.2005 12:57:00

Servus!

Was verstehst du unter Zeile? eine Reihe oder eine Spalte?

Gruss

Tobias


Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wenn .. von: Butzi
Geschrieben am: 22.03.2005 13:11:25

Hallo,

ich meine eine Reihe.

Gruss
Alex


Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wen von: Tobias Marx
Geschrieben am: 22.03.2005 13:28:21

Servus!

Evtl. so:

Sub Reihe_kopiern()
  enda = Worksheets(1).Range("K65536").End(xlUp).Row
  For i = 1 To enda
  Range("K" & i).Activate
  If ActiveCell.Value = "x" Then
     Rows(i & ":" & i).Select
     Selection.Copy
     Worksheets(2).Activate
     Range("A" & i).Select
     ActiveSheet.Paste
     Worksheets(1).Activate
  End If
  Next i
End Sub


Gruss

Tobias


Bild


Betrifft: Nachtrag von: Tobias Marx
Geschrieben am: 22.03.2005 13:31:12

So, nochmal. Beim letzten Makro hat er einfach die Reihe in die Spalte im neuen Blatt kopiert, in der sie auch im original war. Wenn du die Reihen aber schoen nacheinander drauf haben willst auf deinem neuen Blatt, nimm folgenden leicht modifizierten Code:

Sub Reihe_kopiern()
  k = 1
  enda = Worksheets(1).Range("K65536").End(xlUp).Row
  For i = 1 To enda
  Range("K" & i).Activate
  If ActiveCell.Value = "x" Then
     Rows(i & ":" & i).Select
     Selection.Copy
     Worksheets(2).Activate
     Range("A" & k).Select
     ActiveSheet.Paste
     Worksheets(1).Activate
     k = k + 1
     End If
  Next i
End Sub


Gruss

Tobias


Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wen von: Butzi
Geschrieben am: 22.03.2005 13:31:17

Hi, Danke für die Antwort!

Sieht ja ziemlich kompliziert aus, wo schreib ich das Ding den jetzt rein?

Danke

Gruß Alex


Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wen von: Tobias Marx
Geschrieben am: 22.03.2005 13:33:11

Also kompliziert ist das nicht - das is ein stinknormales Makro.
Fueg das ganze einfach als Modul in deine Arbeitsmappe ein, dann solltest du es als Makro auswaehlen koennen. Beachte auch die zweite Version, die ich noch reingestellt habe.

Gruss

Tobias


Bild


Betrifft: AW: zeilen in anderes Arbeitsblatt übernehmen, wen von: Butzi
Geschrieben am: 22.03.2005 13:38:59

O.K.,

werd mich da mal durchkämpfen,

danke für die Hilfe!

Gruß Butzi


 Bild

Beiträge aus den Excel-Beispielen zum Thema "zeilen in anderes Arbeitsblatt übernehmen, wenn .."