Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Nein Button
06.10.2017 06:19:25
Tim
Hallo,
mit diesem Code verschiebe ich bei JA anklicken die Zeile.
Sub zurucklager()
Dim naechste As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets("protokoll")
If ActiveCell.Column = 2 Then
If MsgBox("verfügbar?", vbQuestion + vbYesNo, "Nachfrage") _
= vbYes Then
With Worksheets("Lager")
naechste = .Cells(Rows.Count, 13).End(xlUp).Row + 1
.Cells(naechste, 14) = ActiveCell
.Cells(naechste, 15) = ActiveCell.Offset(, 1)
.Cells(naechste, 16) = Application.InputBox("Wollen Sie eine Information hinterlegen?",  _
"Grund")
.Cells(naechste, 17) = Date
.Cells(naechste, 13) = Environ("Username")
wks2.Unprotect "2510"
.Cells(naechste, 13).Resize(1, 5).Copy wks2.Cells(wks2.Cells(Rows.Count, 1).End( _
xlUp) _
.Row + 1, 1)
wks2.Protect "2510"
End With
End If
Rows(ActiveCell.Row).Delete
End If
End Sub

Bei Nein sollte er abbrechen, macht er aber nicht.
Kann mir jemand helfen?
Danke Tim

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Verschiebe die Zeile mit...
06.10.2017 06:28:36
Case
Hallo Tim, :-)
... dem "Delete": ;-)
Sub zurucklager()
Dim naechste As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets("protokoll")
If ActiveCell.Column = 2 Then
If MsgBox("verfügbar?", vbQuestion + vbYesNo, "Nachfrage") = vbYes Then
With Worksheets("Lager")
naechste = .Cells(Rows.Count, 13).End(xlUp).Row + 1
.Cells(naechste, 14) = ActiveCell
.Cells(naechste, 15) = ActiveCell.Offset(, 1)
.Cells(naechste, 16) = Application.InputBox _
("Wollen Sie eine Information hinterlegen?", "Grund")
.Cells(naechste, 17) = Date
.Cells(naechste, 13) = Environ("Username")
wks2.Unprotect "2510"
.Cells(naechste, 13).Resize(1, 5).Copy _
wks2.Cells(wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
wks2.Protect "2510"
End With
Rows(ActiveCell.Row).Delete
End If
End If
End Sub
Servus
Case

Anzeige
AW: Verschiebe die Zeile mit...
06.10.2017 06:49:38
Tim
Hallo,
und wo muß ich den einbauen ?
Danke Tim
Habe Dir den Code doch geschrieben... o.w.T.
06.10.2017 07:14:59
Case
:-)

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige