Supportnet / Forum / Tabellenkalkulation

Hallo Leute brauche eure hilfe habe ich excel eine Spalte von C4 -c20000 zahlen ,nun habe ich mir einen Butten gemacht und den möchte ich nun mit einen Makro belegen so das wenn ich auf den Butten Klicke eine Fenster aufgeht und ich ein Eingabe zB,19999 mache und es mir dann die Zeile anzeigt.Vielleicht geht auch so was das es mir die zb.Zeilen der Spalte die ich suche von A -J Farblich anzeigt .das zweite muss nicht sein wäre aber schöner zur Übersicht. danke rolf

Hallo rolf,

das folgende Makro macht dies:

Option Explicit

Sub Zeile_anzeigen()
Dim i, ini As Long
i = Inputbox("Bitte die Zeile eingeben (max. 20000): ", "Zeileneingabe !")
If IsNumeric(i) And i < 20001 Then
Cells(i, 3).Select
For ini = 1 To 10 ´Von Spalte 1 bis 10 (A bis J)
Cells(i, ini).Interior.ColorIndex = 3 ´Zeile wird rot markiert (A bis J)
Next ini
Else
MsgBox ("Die Zeileneingabe muss eine Zahl sein bzw. darf höchstens 20000 betragen oder die Suche wurde abgebrochen !")
End If
End Sub

Dieses Makro legst du auf den Button. Es öffnet sich eine Inputbox, in der man die Zeilenanzahl eingibt. Dabei wird abgefragt, ob es eine Zahl ist u. ob diese kleiner 20001 ist (ansonsten gibt es eine Fehlermeldung). Ist die Eingabe korrekt, wird die eingegebene Zeile selektiert u. die Spalten A bis J rot markiert.
Viel Spass

MfG
Annan

Ich habe es so gemacht aber nun kommen fehlermeldungen wie end sub erwartet usw
Rolf

Dort wo du das Makro eingefügt hast, sollte nur einmal Sub u. einmal End Sub stehen (Also am Anfang u. am Ende). Sollte sich ein zweites End Sub innerhalb der Sub u. End Sub-Schleife befinden, dieses zweite End Sub löschen.
Frage: Hast du schonmal ein Makro bzw. VBA-Code eingefügt ?

ja klar habe ich schon makros auf Butten gelegt ist nicht mein erstes ja dort stehen nur einmal sub und end.
mh werde mal ein wenig damit rumspiele wird schon klappen
danke rolf

Kurze Anleitung zu Makro einfügen:

1.Der Button wurde erstellt
2.Rechtsklick auf Schaltfläche u. Makro zuweisen auswählen
3.In dem geöffneten Fenster NEU auswählen
4.Dann kopierst du mein Makro von Sub Zeile_anzeigen() bis End Sub in das bereits geöffnete Modul
5.Jetzt löscht du das erste Sub. Wahrscheinlich steht dort: Sub Schaltfläche1_BeiKlick(). Dieses löschen, so dass nur noch Sub Zeile_anzeigen() zu sehen ist.
6.Auch das zweite End Sub, welches sich am Ende des Makros befindet löschen.
7.Sollten nun die Zeilen For ini...... u. Cells(i, ini)..... rot markiert sein, musst du den Hochstrich bei ´Von Spalte 1 bis 10(A bis J) u. ´Zeile wird rot markiert (A bis J) durch den Hochstrich auf der Taste # ersetzen. Dann sollte der Text zum Kommentar u. grün werden. Oder du löscht einfach jeweils den Text nach dem Hochstrich.

Ich hoffe, dass war einigermassen verständlich.
(Dem Button musst du nun natürlich noch das Makro Zeile_anzeigen zuordnen)

• kann wegen makro nicht drucken - was machen?
• Datenfilter mit Makro
• Makro soll verfügbahren drucker selber suchen