Anzeige
Archiv - Navigation
1468to1472
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
Inhaltsverzeichnis

Code über Command Button nicht über Doppelklick

Code über Command Button nicht über Doppelklick
26.01.2016 09:02:25
Christian
Hallo zusammen
Ich müsste diesen Code nicht mit einem Doppelklick sondern über ein Commandbutton ausführen lassen. Wer kann mir diesen Code umschreiben? Auf den Vermerk Ja bei einem Übertrag kann verzichtet werden.
Schon jetzt einmal besten Dank für eure Unterstützung.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1 As Worksheet
Dim y1 As Long
Dim s2 As Worksheet
Dim y2 As Long
Dim strArtikel As String
Dim intVon As Integer
Dim intBis As Integer
Dim strBlatt As String
Dim n As Integer
If (Target.Cells.Count = 1) And (Target.Column = 1) And (Target.Row >= 2) Then
Set s1 = ActiveSheet
y1 = Target.Row
strArtikel = s1.Cells(y1, 1).Value
If (strArtikel  "") Then
intVon = s1.Cells(y1, 4).Value
intBis = s1.Cells(y1, 5).Value
If (intBis > intVon) Then
strBlatt = Right$(strArtikel, 4)
Set s2 = Worksheets(strBlatt)
y2 = s2.Cells(s2.Rows.Count, 1).End(xlUp).Row
For n = intVon To intBis
y2 = y2 + 1
s2.Cells(y2, 1).Value = n
Next n
s1.Cells(y1, 8).Value = "ja"
s2.Activate: s2.Cells(y2, 1).Activate
End If
End If
Cancel = True
End If
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code über Command Button nicht über Doppelklick
26.01.2016 09:45:16
ChrisL
Hi Christian
Ungetestet:
Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Dim y1 As Long
Dim s2 As Worksheet
Dim y2 As Long
Dim strArtikel As String
Dim intVon As Integer
Dim intBis As Integer
Dim strBlatt As String
Dim n As Integer
Set s1 = ActiveSheet
y1 = 1 'Evtl. Zeilennummer anpassen !!!
strArtikel = s1.Cells(y1, 1).Value
If (strArtikel  "") Then
intVon = s1.Cells(y1, 4).Value
intBis = s1.Cells(y1, 5).Value
If (intBis > intVon) Then
strBlatt = Right$(strArtikel, 4)
Set s2 = Worksheets(strBlatt)
y2 = s2.Cells(s2.Rows.Count, 1).End(xlUp).Row
For n = intVon To intBis
y2 = y2 + 1
s2.Cells(y2, 1).Value = n
Next n
s1.Cells(y1, 8).Value = "ja"
s2.Activate: s2.Cells(y2, 1).Activate
End If
End If
End Sub

cu
Chris
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige