VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

4 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren

01.10.2021, 09:01

Du musst die Funktion aufteilen in zwei Funktionen.

Einmal eine Initialisierungsfunktion, die z.B. aufgerufen wird, wenn das Formular geöffnet wird. Da wird dann eine Zufallszahl erzeugt und der Zähler auf 0 gesetzt.

Und einmal eine Funktion, die aufgerufen wird, wenn der Benutzer auf den Button klickt. Da wird dann jedes Mal geprüft, ob die Eingabe stimmt und der Zähler hochgezählt

Option Explicit


Private Anzahl As Integer
Private PCzahl As Integer


Private Sub UserForm_Initialize()
    Anzahl = 0
    PCzahl = Int((Rnd * 100) + 1)
End Sub


Private Sub btnRaten_Click()
    Dim Userzahl As Integer
    
    If Not IsNumeric(Me.txtEingabe.Value) Then
        Me.lblAusgabe.Caption = "Du darfst nur Zahlen eingeben"
        Exit Sub
    End If
    
    Userzahl = Val(Me.txtEingabe.Value)
    Anzahl = Anzahl + 1
    
    If Userzahl > PCzahl Then
        Me.lblAusgabe.Caption = "Die Zahl " & Userzahl & " ist zu groß"
    ElseIf Userzahl < PCzahl Then
        Me.lblAusgabe.Caption = "Die Zahl " & Userzahl & " ist zu klein"
    Else
        Me.lblAusgabe.Caption = "Richtig. Du hast " & Anzahl & " Versuche gebraucht."
        UserForm_Initialize
    End If
End Sub

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

01.10.2021, 08:47

Du hast eine Endlosschleife, weil in jeden Schleifendurchlauf sich weder Userzahl, noch PCzahl ändert.

Woher ich das weiß:Berufserfahrung – Programmierer

Elumania

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

30.09.2021, 20:38

Ein paar Zeilen habe ich nicht verstanden, weil ich die Befehle nicht kenne:

Userzahl = Val(tbxEingabe.Value)

Das habe ich ersetzt durch

Userzahl = InputBox("Zahl eingaben")

Was macht diese Zeile? Die bisherige Anzahl an Versuchen wird gespeichert in einer Variablen lblCounter. Mit lblCounter wird aber nichts mehr gemacht. Und was .Caption bedeutet verstehe ich nicht.

lblCounter.Caption = anzahl

Verstehen würde ich noch anzahl = lblCounter.Caption aber nicht Caption auf der linken Seite.

Denkbar wäre

lblCounter = anzahl

wobei ja eigentlich "anzahl" der counter ist, da

anzahl = anzahl +1

___________

Zu deinem Problem: Du bist in einer Endlosschleife, da Userzahl sich nicht verändert. Es wird immer vergleichen PCzahl mit Userzahl, aber Userzahl ändert sich nie.

Lucamaestro

Fragesteller

30.09.2021, 20:46

Userzahl tbxEingabe ist eine Textbox in dem der User eine Zahl eingibt. Wenn man auf den Button Raten klickt, dann soll eine if verzweigung prüfen, ob die eingebebene Zahl größer, kleiner oder gleich groß ist. bei jedem klicken soll die anzahl +1 sein. der lblCounter.caption ist ein label, der den Wert von anzahl zurückgibt.

Elumania

30.09.2021, 20:49

@Lucamaestro

aber anzahl wird doch lblCounter zugewiesen, nicht umgekehrt.

Ich kenne z.B. noch

zahl = Cells(1,1).Value

Hier wird die Zelle angesprochen und dort speziell der Wert extrahiert und zahl zugewiesen. Bei dir ist es aber umgekehrt in der Reihenfolge. Das habe ich so noch nie gesehen:

lblCounter.Caption = anzahl

Lucamaestro

Fragesteller

30.09.2021, 20:51

@Elumania

Nunja. Ich habe zuerst versucht, den Wert in eine Zelle zu speichern und wenn man nochmal auf den Button Raten klickt, dass man diesen Wert so aufrufen könnte. Aber leider hat das auch nicht funktioniert.

Elumania

30.09.2021, 20:53

@Lucamaestro

Wert in eine Zelle schreiben:

wert = 75
Cells(1,1) = wert
'Abrufen aus der Zelle
wert = Cells(1,1)

aber das kennst du wahrscheinlich

Lucamaestro

Fragesteller

30.09.2021, 20:54

@Elumania

Ok. Aber wie schaffe ich es, dass wenn man auf den Button klickt der Wert anzahl um 1 erhöht wird ohne das ein Laufzeitfehler passiert.

Elumania

30.09.2021, 20:58

@Lucamaestro

Ist dein Button eine Userform? oder wie darf man sich deinen Button vorstellen?

Lucamaestro

Fragesteller

30.09.2021, 21:00

@Elumania

In der Userform gibt es einen Label für die Textausgabe, eine Textbox, ein Label für die Anzahl der Runde (Anzahl) und der Button Raten

safur

30.09.2021, 20:56

Die Frage wäre, wieso nutzt du überhaupt die Schleife?

Die macht so keinen Sinn. Anzahl wird einfach hochgezählt bis zur Grenze von Integer, dann findet der Überlauf statt. Der Datentyp verträgt keine höheren Werte.

Eine Textbox nennt man nach ungarischer Notation txtEingabe und nicht tbxEingabe.

Lucamaestro

Fragesteller

30.09.2021, 20:57

safur

30.09.2021, 20:58

@Lucamaestro

Sag mal in Worten was getan werden soll.

Ich glaube nämlich mit jedem Klick soll sich die Zufallszahl verändern.

Ähnliche Fragen

Excel VBA IsNumeric?

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

...zur Frage

VBA Dezimal in Binär?

Hallo,

ich soll mit VBA ein Programm schreiben, welches eine beliebige Dezimalzahl in eine Binärzahl umwandeln kann. Das Prinzip dahinter habe ich verstanden, allerdings scheitert es noch an der Umsetzung. Als Beispielzahl habe ich hier die 17 verwendet.

Sub vba_dezbi()

Dim ergebnis As Integer

Dim zahl As Integer

Dim rest As Integer

Dim lv(1 To 566) As Integer

zahl = 17

Do While zahl > 0

rest = zahl Mod 2 & rest

zahl = zahl / 2

. . .

Loop

MsgBox(...)

End Sub

Ich habe herausgefunden, dass man hierfür Felder(Arrays) benutzen muss, allerdings komme ich damit auch nicht viel weiter... Ich hoffe, dass mir jemand helfen kann und weiß, was ich anstatt "..." schreiben muss.

...zur Frage

VBA: Automatisch mehrere Tabellenblätter löschen?

Moin, ich möchte gerne mehrere Tabellenblätter löschen (Excel -> VBA). Das Problem dabei: Die Nummer des ersten und letzten zu löschenden Blattes soll abgefragt werden. Habe jetzt schon die eine oder andere Zeile "zusammengebastelt", allerdings läuft das Sub noch nicht so ganz rund. Kann mir da jemand weiterhelfen?? Bin mit VBA leider nicht so vertraut....

Sub Aufgabe 17()

Dim intWert1 As Integer
Dim intWert2 As Integer
Dim intWert3 As Integer

intWert1 = InputBox("Nummer des ersten zu löschenden Blattes?", "Tabellenblätter löschen", 0)
intWert2 = InputBox("Nummer des letzten zu löschenden Blattes?", "Tabellenblätter löschen", 0)

Application.DisplayAlerts = False

For intWert3 = intWert1 To intWert2
    intWert3 = "Tabelle" + intWert1
    Worksheets(intWert3).Delete
Next intWert3

Application.DisplayAlerts = True

End Sub

...zur Frage

Vba frage dim Byte oder integer?

integerhallo liebe Community folgende Frage zur Deklaration von Jahr

Hätte ich anstatt integer auch Byte nehmen können ?

Vielen Dank schonmal

...zur Frage

Die anweisung ist in einem Namespace ungültig?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zur Frage

Excel VBA - Umkehrfunktion, und alle Zeilen nach Begriff durchsuchen?

Hallo,

ich habe ein Problem mit Excel VBA. Ich habe eine Arbeitstabelle, die inzwischen über 76000 Zeilen beinhaltet. Deshalb möchte ich mit VBA eine Userform erstellen, die das Suchen einer bestimmten Zeile leichter macht.

Bis jetzt läuft es ganz gut, aber ich habe 1. das Problem, dass wenn ich einen Suchbegriff in eines der Textfelder eingebe, er mir immer nur die erste Zeile markiert, in der der Begriff steht. Da aber der Begriff noch öfter vorkommt, bringt es mir ja nichts, nur die erste Zeile markiert zu bekommen.

Das 2. Problem ist, dass bis jetzt nur die gesuchte Zeile farbig markiert wird. Ich möchte es aber hinbekommen, dass alle Zeilen, bei denen der Suchbegriff nicht vorkommt, ausgeblendet werden.

Hier mein bisheriges Skript für das erste Suchkriterium:

Sub Suche_Click()

Dim x As String

Dim Z As Integer

Dim temp As Integer

Z = Sheets(1).UsedRange.Rows.Count

x = Belegnr1 [Textbox-Name]

temp = 0

For i = 2 To Z

If Cells(i, 1) = x Then

temp = 1

Exit For

End If

If temp = 1 Then

ActiveSheet.Rows(i).Interior.ColorIndex = 6

' ActiveSheet.Rows(i).Hidden = False [Hier Problem Nr.2 ! ]

' ActiveSheet.Rows.Hidden = True

Else

' ActiveSheet.Rows.Hidden = True

MsgBox "Belegnummer nicht vorhanden. Bitte prüfen Sie ihre Eingabe."

End If

End Sub

Danke im Voraus!

...zur Frage

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zur Frage

Hallo, ich möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zur Frage

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zur Frage

VBA Objektvariable oder With Blockvariable nicht festgelegt?

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

...zur Frage

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zur Frage

Kann mir einer diesen Quellecode von der Schleife erklären? (Visual Baisc)?

(Eigentlich sehr simpel aber fange gerade erst an)

 Dim i As Integer
    Dim eingabe As String
    Dim erstenzwei As String
    Dim rueckwaerts As String
    Dim letztenzwei As String
    Dim anzahl As Integer
    eingabe = eingabeTB.Text
    anzahl = Integer.Parse(AnzahlTB.Text)
    For i = eingabe.Length - 1 To 0 Step -1
      rueckwaerts &= eingabe(i)
    Next
    For i = 0 To anzahl - 1
      erstenzwei &= eingabe(i)
    Next
    For i = eingabe.Length - anzahl To eingabe.Length - 1
      letztenzwei &= eingabe(i)
    Next

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen