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 .."