Msg Box wenn Zeile nicht markiert

Moderator: ModerationP

Msg Box wenn Zeile nicht markiert

Beitragvon Ironangel » 01. Dez 2020, 15:11

Hallo zusammen,

ich kopiere mir mit dem Code:

Code: Alles auswählen
Selection.Copy
r = ActiveCell.Row
Rows(r + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Range("H2").Select


eine markierte Zeile und füge sie unterhalb ein. Das ganze habe ich auf einen Button gelegt. Jetzt möchte ich aber, dass das nur funktioniert wenn wirklich die ganze Zeile uber die Zeilennummer angeklickt ist. Wenn die ganze Zeile nicht markiert ist soll das ganze abgebrochen werden und eine Msg Box erscheinen. Wie realisiere ich das am besten?

Danke und viele Grüße
Ironangel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 23
Registriert: 24. Okt 2014, 09:16

Re: Msg Box wenn Zeile nicht markiert

Beitragvon volti » 01. Dez 2020, 16:11

Hallo,

hier eine Idee. Vielleicht bringst sie Dich ja weiter:
Code: Alles auswählen
Sub Test1()
 If Selection.Address Like "$#*:$#*" Then
   MsgBox "Ganze Zeile markiert!"
 Else
   MsgBox "Anderer Bereich markiert!"
 End If
End Sub

Sub Test2()
  With Selection
   If .Address Like "$#*:$#*" Then
      If Split(.Address, ":")(0) = Split(.Address, ":")(1) Then
         MsgBox "Nur eine ganze Zeile markiert!"
      Else
         MsgBox "Mehrere ganze Zeilen markiert!"
      End If
   Else
     MsgBox "Anderer Bereich markiert!"
   End If
 End With
End Sub


viele Grüße
Karl-Heinz
volti
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 83
Registriert: 22. Jul 2020, 13:55
Wohnort: Freigericht-Somborn

Re: Msg Box wenn Zeile nicht markiert

Beitragvon HKindler » 01. Dez 2020, 16:36

Hi,
Code: Alles auswählen
Selection.Address Like "$#*:$#*"
liefert aber auch True falls mehrere Zeilen markiert sind.
Code: Alles auswählen
Selection.Address = Selection.cells(1).entirerow.address
liefert nur True falls eine einzige komplette Zeile markiert ist.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 5351
Registriert: 04. Jul 2013, 09:02

Re: Msg Box wenn Zeile nicht markiert

Beitragvon volti » 01. Dez 2020, 16:57

Hallo Helmut,

das hatte ich mit der zweiten Sub-Beispiel abgedeckt.

Aber Dein Code ist natürlich kürzer und besser, danke für den Hinweis... :-)

VGKH
volti
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 83
Registriert: 22. Jul 2020, 13:55
Wohnort: Freigericht-Somborn

Re: Msg Box wenn Zeile nicht markiert

Beitragvon Ironangel » 01. Dez 2020, 19:03

Prima, danke für die Hilfen. Ich probiere das morgen einmal aus.

Viele Grüße
Ironangel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 23
Registriert: 24. Okt 2014, 09:16

Re: Msg Box wenn Zeile nicht markiert

Beitragvon Ironangel » 02. Dez 2020, 07:34

Vielen Dank für die Hilfe. Funktioniert sehr gut.

vg
Ironangel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 23
Registriert: 24. Okt 2014, 09:16


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste