Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "zeilen in anderes Arbeitsblatt übernehmen, wenn .."
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren