|
Excel : zeilen verschieben
thato am 21.10.2009 um 11:10 Uhr (0)
vielen dank für die anregungen!!!
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 07.10.2009 um 20:13 Uhr (0)
danke paulchen, aber händisch wollt ich das nicht machen
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 11:10 Uhr (0)
die methode range für das objekt _global ist fehlgeschlagenan der stelle suchtext = ...
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 09:07 Uhr (0)
achso...wie gehe ich denn von hinten nach vorne vor???mit einer for schleife? also for i = 250 to 1?
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 11:33 Uhr (0)
danke tobias,aber das probier ich erst aus, wenn mein lösungsweg funktioniert oder vollkommen falsch ist
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 11:31 Uhr (0)
logo...rows..ich dusel!danke! jetzt gehts weiter.nacher bin ich aber noch auf die lösung mit der find methode gespannt.
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 12:40 Uhr (0)
hab meinen fehler gefunden.jetzt muss ich nur noch das problem lösen, dass ich im blatt "lop" nach dem ausschneide auch wieder an die oberste stelle kommen. durch die schleife werden zeilen übergangen.wie funktioniert es denn mit der find methode?
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 11:26 Uhr (0)
habs nochmal einfacher probiert.mein problem ist, dass ich nicht cells(i,5) auswählen möchte, sindern die ganze zeile iwie mache ich das denn?Sub test()Sheets("LOP").SelectFor i = 25 To 1 Step -1 If Cells(i, 5).Value = "erledigt" Then Cells(i, 5).Select End IfNextEnd Sub
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 07.10.2009 um 20:17 Uhr (0)
danke runkelruebe. so in etwa hab ich mir das vorgestellt. jetzt muss ich nur noch den quellcode schreiben mal sehen ob ich das morgen hinbekomme...gehts eigentlich auch ohne makro???wie kann ich denn die abfrage ob das makro aktiviert werden soll beim öffnen der datei ausstellen?kann ich das makro aktivieren durch drücken der enter-taste?
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 07.10.2009 um 15:24 Uhr (0)
hallo,über eine bedingte formatierung lasse ich die ganze zeile "durchstreichen" wenn eine zelle in der zeile "erledigt" stehen hat.die ganze durchgestrichene zeile soll jetzt aber aus dem tabellenblatt verschwinden und in ein anderes tabellenblatt übertragen werden. wie bekomme ich das hin?danke schonmal im voraus
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 09:06 Uhr (0)
oje...hab mich mal an der find methode probiert...Dim suchtext As StringFor i = 1 To 250Sheets("LOP").SelectRange("E" & i).Select If suchtext = "erledigt" Then Do Cells.Find(What:=suchtext, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _ xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _ .Activate Loop End IfNextbin ich zu blöde, oder warum findet er "erledigt" nicht???
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 10:42 Uhr (0)
so jetzt ist später... ;o)habe versucht mal deine hinweise umzusetzen. leider ist es bei dem versuch geblieben.habe das suchwort jetzt mal explizit in eine zelle geschrieben und versucht so den suchtext zuzuweisen. allerdings bekomme ich ne fehlermeldung. was ist falsch???Option ExplicitDim suchtext, iPublic Sub test()Sheets("LOP").Selectsuchtext = Range(1, 9).ValueFor i = 25 To 1 Step -1If Worksheets("LOP").Cells(i, 5).Value = suchtext ThenEnd IfNext
|
| In das Form Excel wechseln |
|
Excel : zeilen verschieben
thato am 08.10.2009 um 12:44 Uhr (0)
so, das ist meine lösung, falls es jemanden interessiert.bin an verbesserungen durchaus interessiert!Sheets("LOP").Selectj = 2For i = 1 To 25 If Cells(i, 5).Value = "erledigt" Then Rows(i).Cut Sheets("done").Select If Cells(j, 1) "" Then j = j + 1 End If ActiveSheet.Cells(j, 1).Select ActiveSheet.Paste Sheets("LOP").Select Rows(i).Select Selection.Delete Shift:=xlUp i = 0 End IfNext
|
| In das Form Excel wechseln |
