Office: (Office 2019) VBA CommandButton einblenden abhängig von Eintrag in Zeile

Hallo Leute,
nachdem ich fleißig VBA geübt habe und schon komplett eigene Codes erfolgreich zum Laufen gebracht habe (Dank der Hilfe hier!), stoße ich nun doch wieder an eine Grenze.

Ich habe eine Liste für zu erstellende und per Email zu sendende Buchtitel angefertigt und habe es auch geschafft, einen mitwandernden Command-Button zu generieren. Er erscheint nur in jener Zeile, in der ich gerade aktiv bin. ABER - er soll natürlich auch nur dann erscheinen, wenn in der letzten Spalte kein "Versendet" drin steht (logisch, dann brauche ich den Button "Versenden" ja nicht mehr).

Hier mein Code:

Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim MyRow&
MyRow = ActiveCell.Row
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("AB7:AC155")) Is Nothing Then
    Tabelle1.CommandButton1.Visible = True
    Tabelle1.CommandButton1.Top = Cells(ActiveCell.Row, 31).Top
    Tabelle1.CommandButton1.Left = Cells(ActiveCell.Row, 31).Left
 Else
    Tabelle1.CommandButton1.Visible = False
 End If
End Sub

Meine Frage: Wie kombiniere ich jetzt diese beiden Bedingungen (aktive Zeile und abhängig, ob in der letzten Spalte (F) schon "Versendet" drin steht) miteinander in VBA?

Danke schon mal im Voraus :-)

 

Hallo Felizia,

nette Spielerei mit deiner Schaltfläche. Alternativ würde ich den Listenkopf fixieren und dort die Schaltfläche fest installieren. Wo wir gerade bei Spielereien sind, die leeren Zeilen nach jeweils fünf Buchtiteln gehören auch in diese Kategorie. So etwas hat in Listen nichts zu suchen, weil sie dann zum Beispiel nicht sortiert werden können, der Autofilterwirkbereich wird unterbrochen usw..

 

@Klaus-Dieter
Naja gerade das Fixieren will ich ja nicht, ich will individuell die Zeilen an PDF und Outlook übergeben. Nicht alle auf Einmal, sondern dann, wenn ich es brauche. Und da nicht nur ich damit arbeite, kann ich Fehler mit dem Ausblenden des Buttons in den Zeilen, in denen schon "Versendet" drin steht, vermeiden.
Die leeren Zeilen sind notwendig (und nicht ganz so leer, wie es ausschaut). Die müssen bleiben. Sortierung und Autofilter brauche ich in dieser Liste nicht.
Aber Danke trotzdem für Deine Hinweise :-)
Grüßle Felizia :-)

 

Hallo Felizia,

wem nicht zu raten ist, dem ist nicht zu helfen. Ändere die zweite Zeile mal so ab: If Not Intersect(Target, Range("D7:F155")) Is Nothing And Cells(Target.Row, 6).Text <> "Versendet" Then dann geht das. Ein gutes Gefühl habe ich dabei nicht, aber wenn du schon so nett fragst ...

 

den Code zur Position hast Du Extra gelösch, daDu ihn sdpäter einfügen wolltest.

Code:

Option Explicit

Private Sub CommandButton2_Click()
    Dim MyRow&
    MyRow = ActiveCell.Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Tabelle2.CommandButton1.Visible = Not Intersect(Target, Range("D7:F155")) Is Nothing And UCase(Cells(Target.Row, 6)) = "VERSENDET"
End Sub

'Teil, der das Mitwandern des Buttons in die aktive Zelle programmiert
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    Tabelle2.CommandButton1.Visible = True
'    Tabelle2.CommandButton1.Top = Cells(ActiveCell.Row, 7).Top
'    Tabelle2.CommandButton1.Left = Cells(ActiveCell.Row, 7).Left
' Else
'    Tabelle2.CommandButton1.Visible = False
' End If
'End Sub

 

ui ui ui - Ihr Zwei seid ja richtig nett und schnell. Ich probiere es aus. :-)
@Klaus-Dieter : vielen lieben Dank, ich werde es gleich einbauen :-)
@Hajo_Zi : Danke für Deine Aufmerksamkeit! Ich schaue gleich noch einmal nach und dann probiere ich auch Deinen Code aus. :-)

Ich gebe dann hier Bescheid :-)

 

Hallo Flizia,

dann kennst du mich noch nicht richtig.

 

@Klaus-Dieter

Bist Du etwa 'n kleener Stenkerer? Glaube ich nicht, Du meinst es ja nur gut.
Übrigens: ich verstehe Deine Argumentation mit Listen besser als Du denkst und ich gebe Dir auch vollkommen Recht. Aber wenn ich mit so einer Liste arbeite und sie auch zur Erklärung nutze - und meine Präsentation immer nur 5 Zeilen erlaubt - dann macht es mir die Sache einfacher, wenn optisch eine Trennzeile drin ist. Aber mir fällt gerade ein, dass ich das auch mit einem extra dicken Rahmen in Grau machen kann ... das müsste eigentlich auch reichen ...

Siehst', Klaus-Dieter, wie gut: Deine Anregungen haben meine Zellen im Köpfchen animiert, sich ein bisschen mehr Mühe zu geben. Die haben nämlich ein südländisches Temperament (je wärmer es ist, desto langsamer ömmeln sie so larifari durch den Tag). Du hast sie gepusht und es kam sogar was Sinnvolles bei raus.

 

Hallo Felizia,

es gibt (auch in diesem Forum) Leute, die das so sehen. Aber da stehe ich drüber.

 

Für mich zählt: Du hast mir geholfen und im Grunde hattest Du ja auch Recht.

 

So, Feedback: Verknüpfung mit "And" und dann die ganze Reihe genannt - das war die Lösung. Ich habe bisher nur das "&"-Zeichen gelernt und nirgends auf Youtube gefunden, was ich gesucht habe. Wieder etwas schlauer. :-)

Ich bin total Fan von VBA geworden. Es ist sooo cool, wenn man im Lernprozess ist, etwas selber anfängt zu schreiben (also nicht nur kopiert und dann ausprobiert, sondern die Syntax verstehen lernt) - und dann funktioniert das!!!! Das ist klasse.