Hammerhead Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 Tach, hab ein kleines Anliegen, und zwar soll ich hier in der Arbeit aus einer ExcelTabelle mit ca. 250 Zeilen ein Makro schreiben, das alle Rot makierten Zeilen in einer Neuen Tabelle (Tabelle2) ausgibt. Wie kann ich das machen ? Wie ich ein Makro erstelle weiß ich, das Problem liegt nur bei der Farbmakierung. Das Makro soll bei verschiedenen ExcelTabellen funktionieren, da sich die Einträge häufig ändern. Es geht um die Belegung der Ports aller Sternkoppler im Netz. Die Rotmakierten sind die, die keinen freien Port mehr haben. Es sollen also einfach nur immer alle Rotmakierten ausgeben werden. Bitte um baldige Hilfe greetz Hammerhead Zitieren
Schlaubi Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 Hi, wie wäre es, wenn du das Makro einfach aufzeichnest? cu Schlaubi Zitieren
Hammerhead Geschrieben 8. Mai 2002 Autor Geschrieben 8. Mai 2002 sehr witzig, da kann man aber keine farbeigenschaften definieren. oder kannst du mir das erklären ? Zitieren
Schlaubi Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 sorry, hab kein Excel hier, aber das müsste normal schon gehen oder hab ich da unrecht? Schlaubi Zitieren
Hammerhead Geschrieben 8. Mai 2002 Autor Geschrieben 8. Mai 2002 ja man kann makros recorden, aber man kann nicht einstellen, das alle rotmakierten felder (die sich ändern und nicht immer gleich sind), kopiert werden. es geht um die auswahl rote felder. also so ungefähr: if feldbackgroundcolor = red insert into tabelle 2 oder so halt. Zitieren
Sven Eichler Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 Klar, beim recorden müsstest Du wohl von Hand alle auswählen, und wenn dann nochmal eines dazukommt, dann hast wieder Pech gehabt. Ich gehe auch mal davon aus, dass Du hier über Feldeigenschaften agieren musst. Für den Fall, dass Du recht gutes Englisch sprichst, hab ich Dir da nen Link: KLICK MICH!!! P.S.: Keine Sorge, sooo gut ist deren Englisch auch wieder nicht! Zitieren
Hammerhead Geschrieben 8. Mai 2002 Autor Geschrieben 8. Mai 2002 stimmt, dann hab ich pech gehabt. deswegen muss ich das irgendwie über feldeigenschaften regeln. danke für den link. mal schauen ob er mir hilft. weitere hilfen sind trotzdem erwünscht grüßle Hammerhead Zitieren
Flori Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 Original geschrieben von Hammerhead ja man kann makros recorden, aber man kann nicht einstellen, das alle rotmakierten felder (die sich ändern und nicht immer gleich sind), kopiert werden. es geht um die auswahl rote felder. also so ungefähr: if feldbackgroundcolor = red insert into tabelle 2 oder so halt. So, dann will ich auch mal versuchen ein wenig zu helfen. Hab da auch zumindest schon mal nen Ansatz, der deinem Wunsch von oben entsprechen sollte. MANKO bisher : ich weiß jetzt gerade überhaupt nicht mehr wie ich auf einfachem Wege die nächste Zelle in der Tabelle 2 aktivieren kann. D.h.: die Werte werden alle in ein Feld geschrieben, so daß nur der letzte Wert in der Zelle A1 am Ende steht.....vielleicht kann da noch mal einer nen TIP zu geben !!! Ansonsten sollte es soweit funktionieren, wenn du in Tabelle 1 Daten hast und mehrere Felder ROT hinterlegt sind. Sub Copy_Colored_Values() anzRow = ActiveSheet.UsedRange.Rows.Count anzCol = ActiveSheet.UsedRange.Columns.Count anzCel = ActiveSheet.UsedRange.Cells.Count Set MeinBereich = ActiveSheet.UsedRange MsgBox Prompt:="Zeilen: " & anzRow & vbCr & "Spalten: " & anzCol & vbCr & "Zellen: " & anzCel, Title:="Test" For i = 1 To anzCel If (MeinBereich.Cells(i).Interior.ColorIndex = 3) Then MeinBereich.Cells(i).Copy Sheets("Tabelle2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False 'HIER FEHLT NOCH DAS VORBEREITEN DER NÄCHSTEN ZELLE, ZUM REINSCHREIBEN DES NÄCHSTEN WERTES !!! End If Next End Sub Wie gesagt, bin auch Newbie im Bereich VBA, hoffe mal, es hilft hier welchen auf die Sprünge.... Und vielleicht hilft es dir auch schon ein wenig. Werd mal schauen, daß ich das noch hinbekomme mit dem Werten in einzelne Zellen schreiben, entweder nebeneinander oder untereinander.....kann ja auch nich so schwer sein...... Einfach noch mal melden, wenn du so gar nicht weiterkommst.....oder auch wenn du es vielleicht doch fertig hast ! Gruss Flori Zitieren
Yatzi Geschrieben 8. Mai 2002 Geschrieben 8. Mai 2002 hast du mal versucht, ob es unter Format mit der Bedingten formatierung evtl. funktioniert? Zitieren
Kristian Geschrieben 12. Mai 2002 Geschrieben 12. Mai 2002 Ich würde das mit autofiltern machen. also (falls deine Tabelle noch nicht über die benötigten Zellen verfügt, einfügen) eine Zelle für die maximalen Ports, eine für die Benuzten, eine für die Differenz, und über den Autofilter nur noch die anzeigen, bei denen die Differenz null ist. Oder geht es um was anderes? Zitieren
Hammerhead Geschrieben 15. Mai 2002 Autor Geschrieben 15. Mai 2002 Ja es geht um etwas anderes, aber trotzdem danke für den Einwurf. Jo kann mir noch einer die Zeile sagen, die noch im Quelltext fehlt ? Der rest funkt opti. danke wegen der Mühe. Nur die Zeile wär noch prima. greetz Zitieren
Hammerhead Geschrieben 9. Juni 2002 Autor Geschrieben 9. Juni 2002 Könnte mir noch einer die Fehlende Zeile für den Quelltext weiter oben sagen ? Ist wirklich wichtig. Zitieren
Flori Geschrieben 10. Juni 2002 Geschrieben 10. Juni 2002 Hallo Hammerhead, hab mich jetzt da doch nochmal hintergeklemmt und die letzte Zeile "ausgebrütet" ! Bin ja auch kein VBA-Experte, nur mal eben wenn's gebraucht wird, bin ich in der Sache drin. Zudem war in den letzten Woche jede Menge anderes los, so daß ich mich einfach mal kurz entschuldigen möchte, daß ich da nicht eher zu gekommen bin, daß ganze zu komplettieren. Nun aber hab ich's gefunden, was da im Quelltext oben noch stehen muß : An der Stelle wo dieser "Platzhalter" (=der Satz, der auf die fehlende Zeile verweist ) steht, muß hin : ActiveCell.Offset(0, 1).Select -> Dann fügt er die Werte nebeneinander (A1,B1,C1...) ein ODER aber ActiveCell.Offset(1, 0).Select -> Dann werden die Werte untereinander (A1,A2,A3....) eingefügt. Nix zu Danken für die Mühen, so hab ich auch wieder nen bissel üben können ! Freut mich auf jeden Fall, daß es soweit zu funktionieren scheint und hoffe, daß dir das jetzt auch im Ganzen gut weiterhilft !!! Viel Spaß damit ! Flori P.S. Wenn doch noch Fragen sind, einfach nochmal melden - versuche dann auhc nen bissel schneller zu sein als dieses Mal ! Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.