Stechdrehen

Forumthread: Stechdrehen

Stechdrehen

18.02.2026 18:34:01

Wolfi68

Hallo zusammen,

ich möchte mir per Excel ein Makro erstellen das mit vier Werten aus einer Userform abwärts zählt.

Ich habe mir hierzu eine Userform mit vier Textboxen gemacht.

Textbox 1 Wert "50"
Textbox 2 Wert "20"
Textbox 3 Wert "1"
Textbox 4 Wert "0,5"

Das Makro soll mir nun die Werte Zeilenweise von oben nach unten darstellen wie folgt:
Wichtig wäre noch das die Werte in Spalte 2 sind. In Spalte 1 soll immer nur ein "X" sein

X 50
X 49
X 49,5
X 48
X 48,5
X 47
X 47,5
X 46
X 46,5

und so weiter bis der Wert 20 erreicht ist.
Die Werte sind nur Beispielhaft. Das soll mit beliebigen Werten gehen.

Das ganze soll wenn es fertig ist eine Vereinfachung bei der NC-Programmierung einer alten CNC-Drehmaschine die keine Dreh-Zyklen kennt werden. Hiermit soll beim Stechdrehen durch das kurze Abheben der Span gebrochen werden.

Textbox 1 wäre der Durchmesser bei dem das Stechdrehen los geht.
Textbox 2 der Durchmesser bis zu dem gedreht werden soll.
Textbox 3 der Zustellwert für den Schnitt des Drehmeisels
Textbox 4 der Abhebewert für den Drehmeisel bei dem der Span bricht.

Das ganze kann ich dann kopieren und in meinen NC-Editor einfügen. Das würde viel Tipperei ersparen.
Für´s Bohren hab ich mir auch schon sowas ähnliches gebastelt. Da hab ich´s auch hinbekommen.
Warum ich das hier jetzt nicht hinkriege weiß ich auch nicht. :-)
Die Datei für das Bohren hier als Beispiel:
https://www.herber.de/bbs/user/180300.xls

Vielen Dank im Voraus.
Wolfgang

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Stechdrehen

18.02.2026 19:13:44

xlKing
AW: Stechdrehen

19.02.2026 12:28:49

UweD
AW: Stechdrehen

19.02.2026 12:50:05

snb
AW: Stechdrehen

19.02.2026 08:16:54

Wolfi68
AW: Stechdrehen

19.02.2026 09:31:52

mckater

AW: Stechdrehen

18.02.2026 19:13:44

xlKing

Hallo Wolfgang

meinst du das so?

Private Sub CommandButton1_Click()

  Dim d  As Double, z As Double, a As Double, i As Long

  d = TextBox1.Value

  z = TextBox3.Value

  a = TextBox4.Value

  i = 1

  Cells(1, 1) = "X"

  Cells(1, 2) = d

  Do While d > TextBox2.Value

    d = d - z '

    i = i + 1

    Cells(i, 1) = "X"

    Cells(i, 2) = d

    i = i + 1

    Cells(i, 1) = "X"

    Cells(i, 2) = d + a

  Loop

End Sub

Mr. K.

AW: Stechdrehen

19.02.2026 12:28:49

UweD

Hallo

Bei aktuellem Excel (365) mit selbsterweiternden Formel möglich...

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	Start	50			50,0
2	Endwert	20			49,5
3	??	1			49,0
4	Zustellung	0,5			48,5
5					48,0
6					47,5
56					22,5
57					22,0
58					21,5
59					21,0
60					20,5
61					20,0

Zelle	Formel
E1	=SEQUENZ((B1-B2)/B4+1;;B1;-B4)

LG UweD

AW: Stechdrehen

19.02.2026 12:50:05

snb

In VBA:

Sub M_snb()

   Cells(1).Resize(61) = [transpose(transpose(50 - (row(1:61)-1)*.5))]

End Sub

AW: Stechdrehen

19.02.2026 08:16:54

Wolfi68

Perfekt!!!
So einfach kann das sein :-)
Ich danke Dir vielmals!!!!

Eine kleine Frage zum Forum noch: Wo kann man sich denn hier einloggen?
Ich finde nur "Registrieren" aber keinen Link zum Log-In.

AW: Stechdrehen

19.02.2026 09:31:52

mckater

Hallo Wolfgang @Wolfi68,

Damit du ja schon registriert bist, brauchst hier keinen Login

Einfach auf das Forum gehen:
https://www.herber.de/forum/index.html

Und solltest du einen neuen Beitrag schreiben oder antworten gibst du deine Zugangsdaten ein, die Dir zugesendet worden sind.
Also Name, Passwort und E-mail Adresse

Bei mir ist das im Browser hinterlegt und gespeichert und merkt sich bei dieser Seite die Zugangsdaten.
Weil der Browser mich fragte, merken und Ja....
Wäre ja mühsam immer die e-mail oder den Namen ständig manuell einzugeben.
Solltest du einen neuen Beitrag schreiben sind doch dein Name bzw. e-mail sicher schon hinterlegt auf dieser Seite oder und fertig...da braucht man keinen Login
Wenn ich also einen neuen Beitrag schreiben will, gehe ich auf NAME....der schlägt mir den Namen vor und alles andere auch wie Passwort und e-mail.
(das ist sozusagen der Login für neue Beiträge usw.)

LG
mckater

Forumthread: Stechdrehen

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread