VBA MSG Box vor Ausführen

Hallo Excel-Experten,
kleines Problem- große Wirkung!
Bei meinen Moderaten VBA Anfängerkenntnissen benötige ich Hilfe.
Bin auf der Suche nach einer VBA Funktion, die mir in meiner Zeile, wo ich mich befinde, eine Zelle, (es ist immer die "Zelle B") erst Abfragt, ob dort ein Text eingetragen ist.
Wenn ja- soll sich eine MSG -Box öffnen- es befindet sich -"Anzeige des Textes" in der Zelle B.
Nun soll ich auswählen können-
1. Abbrechen mit Schließen der MSG-Box
2. Weiter, dann wird der Inhalt belassen und es geht eine Spalte tiefer.
3. Ändern, dann kann ich den Inhalt in der Zelle B ändern, und es soll weiter nach unten gesprungen werden. denke aber das die 3 überflüssig ist- könnte ich ja mit dem Abbrechen gleichsetzen.
Geht auch folgendes?
Beim Ausführen Command Button1- da gehts weiter nach unten.
Ist die Nummerierung in Spalte A zu Ende, soll sie sich um eine Zahl erhöhen, wenn ich mich in der Zeile befinde wo sie zu Ende ist.
Kann dabei die Formatierung, sowie die Rahmen der darüber liegenden Zellen A-N mit übertragen werden?
Zum Testen schicke ich mal die Datei mit.

Die Datei https://www.herber.de/bbs/user/108810.xlsm wurde aus Datenschutzgründen gelöscht

Nun komme ich nicht weiter.
Grüße Andi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) '* H. Ziplies * '* 16.10.16 * '* erstellt von HajoZiplies@web.de * '* http://Hajo-Excel.de/ ' Füllfarbe ' für Schrift RaZelle.Font.ColorIndex Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Set RaBereich = Range("B:B") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then 'ActiveSheet.Unprotect ("Passwort") For Each RaZelle In RaBereich If Not IsNumeric(RaZelle) Then Dim InMsgBox As Integer InMsgBox = MsgBox("Es steht Text in Zelle " & RaZelle.Address & " ist das ok?", _ vbYesNoCancel + _ vbQuestion, "Löschabfrage ?") Select Case InMsgBox Case 6 MsgBox "Ja" Case 7 MsgBox "Nein" Case 2 MsgBox "Abbrechen" End Select End If Next RaZelle 'ActiveSheet.protect ("Passwort") End If Set RaBereich = Nothing ' Variable leeren End Sub

Private Sub CommandButton1_Click() Dim z As Long Dim r As Long Cells(ActiveCell.Row, 1).Interior.Color = vbGreen ' das Grün If (ActiveCell.Row Mod 1) 0 Then ActiveCell.Offset(1).Select Else ActiveCell.Offset(1).Select End If End Sub

Hi zusammen,
Andi hatte die Frage so ähnlich anscheinend bereits gestellt (war dort unbeantwortet, und ich habe es als doppelt gekennzeichnet).
Jedenfalls ist die Beispieldatei so weit aufs Wesentliche beschränkt, daß ich so meine Zweifel habe, ob es Andi gelingt, die Lösung aus der Beispieldatei in die "echte" zu übertragen...
Nichtsdestotrotz denke ich, daß so etwas gemeint ist:

Option Explicit
Private Sub CommandButton1_Click()
Dim z As Long
Dim r As Long
Cells(ActiveCell.Row, 1).Interior.Color = vbGreen '  das Grün
'   If (ActiveCell.Row Mod 1)  0 Then
'      ActiveCell.Offset(1).Select
'     Else
'      ActiveCell.Offset(1).Select
'   End If
ActiveCell.Offset(1).Select
r = ActiveCell.Row
If Range("A" & r) = "" Then
Range("A" & r).Value = Range("A" & r - 1).Value + 1
Range("A" & r - 1 & ":N" & r - 1).Copy
Range("A" & r).PasteSpecial xlPasteFormats
Cells(ActiveCell.Row, 1).Interior.Color = xlNone '  das Grün wech
End If
TB_Wert = Trim(LTrim(Range("B" & r).Text))
If TB_Wert = "" Then TextBox1.Value = "-leer-" Else TextBox1.Value = TB_Wert
End Sub
Private Sub UserForm_Initialize()
TB_Wert = Trim(LTrim(TB_Wert))
If TB_Wert = "" Then TextBox1.Value = "-leer-" Else TextBox1.Value = TB_Wert
End Sub

TB_Wert ist als Public in Modul2 deklariert und wird in "DieseArbeitsmappe" zugewiesen:

Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
If ActiveSheet.Name = "Bearbeiten" Then
If Target.Column = 3 Then
Cancel = True
TB_Wert = Range("B" & Target.Row).Text
UserForm1.Show  'Userform1 mit Doppelklick
End If
Else
If Target.Column = 3 Then
Cancel = True
TB_Wert = Range("B" & Target.Row).Text
UserForm1.Show  'Userform1 mit Doppelklick
End If
End If
End Sub

Die Datei... https://www.herber.de/bbs/user/108814.xlsm
... spart sich die MsgBox; vielmehr habe ich ein Textfeld in die Userform gesetzt, das den jeweiligen Inhalt aus Spalte B anzeigt: hier könnte man Änderungen vornehmen und mit einem weiteren Button in Bxxx übernehmen.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

113 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA MSG Box vor Ausführen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

113 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread