Excel, Userform: Datum aus Textbox wird in der Zelle nicht als Datum erkannt?

Ich habe folgenden Code:

Private Sub Fertig_Click()

Dim last As Integer

last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

04.11.2019, 11:24

Schau mal, ob es in VBA die Funktion CDate gibt.

Woher ich das weiß:Berufserfahrung – Programmierer

nnamrestuMxaM

Fragesteller

04.11.2019, 11:28

Es gibt DateControl, funktioniert aber nicht. Kommen viele Fehlermeldungen und Excel stützt ab.

Suboptimierer

04.11.2019, 11:32

@nnamrestuMxaM

Dann versuch mal, den Format-Befehl weg zu lassen und formatier die Zellen direkt im Arbeitsblatt.

M2SSD

04.11.2019, 11:35

ja gibt es.

genau so wie CBol,CInt,CStr,usw.

nnamrestuMxaM

Fragesteller

04.11.2019, 11:37

@M2SSD

Wie heißt das dann genau? Ich find das Tool nicht. Ich habe es mit "Microsoft Outlook Date Control" versucht, wie oben beschrieben zieht das Probleme mit sich.

M2SSD

04.11.2019, 11:38

@nnamrestuMxaM

ist kein tool.

gib im direkt bereich mal ein: ?Cdate(

dann siehst du das es das gibt,convert to Date

mit F1 hätte man aber auch dannach suchen können.

Also:

Tabelle9.Cells(last, 1) = CDate(Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy"))

oder

Tabelle9.Cells(last, 1) = CDate(Eingabe.Antragsdatum.Value)

Suboptimierer

04.11.2019, 11:39

@nnamrestuMxaM

Das ist kein Tool, sondern eine Konvertierungsfunktion, die du direkt im Code einsetzen kannst.

nnamrestuMxaM

Fragesteller

04.11.2019, 11:40

@M2SSD

Vielen Dank, ich probiers gleich aus. Vielen vielen Dank, hat funktioniert. ;)

Suboptimierer

04.11.2019, 14:02

@nnamrestuMxaM

Bitteschön!

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

04.11.2019, 17:48

Teste mal:
Tabelle9.Cells(last, 1).Value = Conversion.cDate(Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy"))

Stelle im Anschluss die Zelle mal über das Format auf "Zahl". Wenn nun eine 5 stellige Ziffer drinsteht hat es funktioniert.

Hi, ich arbeite momentan an einer Userform(Bild) womit ich in meiner Tabelle "Gesamtdaten": In die erste leere Zeile einen neuen Mitarbeiter anlegen kann.

Diese läuft auch einwandfrei.

Der Übernehmen Button hat folgende Programierung: (ist nur der teil den Ihr auch auf dem Screenshot seht ... der rest wäre zu viel :D )

Private Sub cmdÜbernehmen_Click()

Dim ELZ As Long

ELZ = Sheets("Gesamtdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Gesamtdaten").Cells(ELZ, 1).Value = Me.TXTlfdNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 2).Value = Me.TXTLehrjahr.Value
Sheets("Gesamtdaten").Cells(ELZ, 3).Value = Me.CBAusbildungsart.Value
Sheets("Gesamtdaten").Cells(ELZ, 4).Value = Me.CBAusbilder.Value
Sheets("Gesamtdaten").Cells(ELZ, 5).Value = Me.TXTName.Value
Sheets("Gesamtdaten").Cells(ELZ, 7).Value = Me.TXTVorname.Value
Sheets("Gesamtdaten").Cells(ELZ, 8).Value = Me.TXTPersonalnummer.Value
Sheets("Gesamtdaten").Cells(ELZ, 9).Value = Me.CBGeschlecht.Value
Sheets("Gesamtdaten").Cells(ELZ, 10).Value = Me.TXTStrasseHsNr.Value
Sheets("Gesamtdaten").Cells(ELZ, 11).Value = Me.CBPLZ.Value
Sheets("Gesamtdaten").Cells(ELZ, 12).Value = Me.CBOrt.Value

Der Abbruch button:

Private Sub cmdAbbruch_Click()

Unload Me

End Sub

Nun würde ich jedoch noch gerne einen button haben der wenn ich oben im Textfeld "lfdNr" eine schon vorhandene nummer eingebe. Dieser sofort alle daten in die jeweilge Combbox/Textbox einträgt und falls ich eine änderung vornehme diese auch mit rückfrage (msgbox Datensatz wurde geänder etc.) auch wieder in die Zeile der passenden LfdNr übernimmt.

Ich bin recht neu in VBA ... bzw. arbeite diese Jahr das 1. mal überhaupt mit excel ... desswegen hole ich mir (wenn ich nach [nun fast 1 woche] suchen keine lösung zu diesem problem finde die mir "zusagt" bzw. ich diese verstehe ... ( will ja was lernen ;'D )

Ich entschuldige mich schonmal für mein etwas "konfuses" auftreten aber hoffe auf Unterstützung :)

Was villeicht auch noch zu erwähnen ist:

Die lfdNr setzt sich automatisch beim öffnen der Userform auf die LfdNr die ein Neuer Datensatz automatisch bekommen sollte.

    TXTlfdNr = Sheets("DropDown-Menü's").Range("J15") 'In J15 steht die Formel =ANZAHL2(Gesamtdaten!A2:A502)

MfG Tim

...zur Frage

VBA Makro Excel Letzte beschriebene Zeile vor Leerzeile, weitere Leerzeile einfügen

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

...zur Frage

[VBA] - Multipage Userform eingaben in Excel übertragen?

Servus Leute,

Ich habe ein Userform in Excel mit Multipage erstellt.

Nun möchte ich auf der letzten Multipage Seite einen Button einbauen. Auf Knopfdruck sollen dann alle Eingaben die vom User auf den einzelnen Multipageseiten gemacht worden sind in ein Excel Tabellenblatt übertragen werden.

Mein Ansatz war dem Button folgenden Code zu geben:

    Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
    If CheckBox1.Value Then
      sheet2.Cells(maxRow2 + 1, 9).Value = "ja"
      Else
        sheet2.Cells(maxRow2 + 1, 9).Value = "nein"
        End If
              sheet2.Cells(maxRow2 + 1, 13).Value = TextBox4.Value

Das funktioniert leider nicht wie ich es mir erhofft habe, auf Knopfdruck werden keine Daten übertragen. Ich habe die vermutung, dass nicht auf die Felder wie z.B. TextBox4 zugegriffen werden kann, weil die auf einer anderen Seite im Multipage sind.

Wie schaffe ich es an die Variablen ranzukommen. Ich hatte noch überlegt, im Code der jeweiligen Seite den Wert aus der Textbox in eine Variable zu setzen, die z.B. Global ist. Aber da bin ich auch schon wieder überfragt wie man das macht.

Außerdem habe ich noch eine Frage zu den Checkboxen.

Es soll folgende Möglichkeiten geben:

Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
Wenn Checkbox angeklickt ist und variable x befüllt, dann kann man zur nächsten Kategorie (Nächste Seite im Multipage)

Für eine Checkbox habe ich das schon hinbekommen, aber wie mach ich das wenn es mehrere Checkboxen gibt. Weil ich glaube wenn ich das so mache wie bisher, dann wird das eine endlose anreihung von if bedingungen.

Diesen Code habe ich dann auf den Button gelegt, mit dem man zur nächsten Kategorie kommen soll oder eben halt nicht.

  Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
   
    If CheckBox3.Value Then
    If Test = False Then
    MsgBox ("Kein Pfad angegeben")
    Else
  Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
    End If
    Else
    Dim iNextPage2 As Long
    With Me.MultiPage1
        iNextPage2 = .Value + 1
        If iNextPage2 < .Pages.Count Then
            .Pages(iNextPage2).Visible = True
            .Value = iNextPage2
        End If
    End With
    End If

Und als letztes würde ich gern noch wissen ob es möglich ist, zu unterbinden, dass der User oben im Multipage die Kategorie direkt anklicken kann und man halt nur über den "weiter" button zur nächsten kategorie kommt.

Gruß Chris

...zur Frage

VBA - Summe berechnen?

Hallo zusammen,

Ich komme wieder mit einem VBA Code an meine Grenzen, vielleicht kann mir ja hier jemand helfen.

Und zwar habe ich ein Dokument in welchem via Button Zeilen und Spalten eingefügt werden können.

Die Grünen Kästchen bilden jeweils die Summen der Werte darüber (außer bei Zielwert&Istwert, da werden die Summen der Werte von links gebildet)

Dadurch das die Datei so dynamisch ist (da man Spalten & Zeilen einfügen und löschen kann) habe ich Probleme die Summenformel so dynamisch zu gestalten das immer die richtige Summe berechnet wird.

Mein Ansatz bisher ist wie folgt:

Dim n

Dim Summe

For n = 5 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(n, 1).Value = "Test1" Then

Summe = Summe + Cells(n, 4).Value

End If

Cells(n - 10, 4).Value = Summe

For n = 5 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(n, 1).Value = "Test 2" Then

Summe = Summe + Cells(n, 4).Value

End If

Cells(n - 4, 4).Value = Summe

End Sub

Problem ist das ich mit dieser Methode für jede Summe diesen Code schreiben muss, und wenn ich weiter in die Spalten nach rechts gehe zählt der Code alle Werte anstelle nur der Werte der jeweiligen Spalte.

Hat hier jemand eine Alternative Lösung für das Problem?

Vielen Dank im Voraus!

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Wie kann ich in Excel eine Zeile mit VBA ausblenden und verschieben?

Hallo,

wenn eine 1 in der Zeile L oder M oder N steht, soll die Zeile ausgeblendet und im Blatt "Monat" eingefügt werden.

Was mache ich hier falsch?

Sub Copy()
  Sheets("Offen").Select
  LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

  For i = 1 To LetzteZeile
    If Cells(i, 12) = 1 Then
      Rows(i & ":" & i).Select
      Selection.Copy
      Sheets("Monat").Select
      LetzteZeileZwei = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
      LetzteZeileZwei = LetzteZeileZwei + 1
      Rows(LetzteZeileZwei & ":" & LetzteZeileZwei).Select
      ActiveSheet.Paste
      Sheets("Offen").Select
      Section.EntireRow.Hidden = True
    End If
  Next i
End Sub

...zur Frage

VBA Code: Zeilen mit Inhalt "leer" löschen?

Hallo an Alle,

kurz zur Erklärung: Ich füge Daten (immer 4 Zeilen) in eine "Datenbank" ein, allerdings, wenn nicht alles ausgefüllt wird, erscheint als Platzhalter "leer". Diese möchte ich gleich im Anschluss löschen, dass es keine weiteren Formeln durcheinander bringt bzw. weil er mir dann bei der nächsten Suche von einer leeren Zeile immer unterhalb der 4 Zeilen springt (wenn ich nicht mit "leer" fülle). :(

Ich habe jetzt schon mehreres probiert, aber entweder es löscht mir die Zeilen nicht oder es löscht auch Zeilen die eingefügt bleiben sollen... Bitte um fachmännische Hilfe. Bitte, DANKE!

Gerne umgehe ich auch "leer", wenn ich dann zumindest wirklich immer in der letzten freien Zeile bin...

Hier der momentan Code:

Range("N3:AE6").Select

Selection.Copy

Sheets("Datenbank").Select

Range("A520").Select

Cells(65000, 1).End(xlUp).Offset(1, 0).Select

Dim last As Integer

last = Cells(Rows.Count, 1).End(xlUp).Row + 1

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

If Cells(last).Value = "leer" Then

Rows(last).Delete Shift:=xlUp

End If

Sheets("BestandsKunde").Select

Range("H43").Select

End Sub

Lg, B

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zur Frage

UserForm durch CommandButton schließen

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If

End Sub

...zur Frage

VBA Code Erklärung

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

...zur Frage

Per VBA Zeilenumbruch entfernen?

Hallo. Ich schreibe grade ein Makro und hänge ein steller fest. Ich muss in einer Zeile in jeder Zelle den manuellen Zeilenumbruch entfernen. Bisher bin ich soweit gekommen

lzeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = 1 To lzeile

Cells(t, 2).Replace Chr(10)

Next t

So läuft es zwar durch aber die Zeilenumbrüche werden auch nicht entfernt. Hat jemand einen Tip was ich an meinem Code ändern muss?

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Wie kann ich Variablen übergeben (Excel, VisualBasic)?

Hallo zusammen,

ich habe eine UserForm in der folgendes steht:

    ...
    Spalte = 3
    Zeile = 6
    
    Unload UserForm1
    
    If OptionButton2 = True Then
        UserForm2.Show
    End If
...

In der zweiten UserForm steht dann:

Sub CommandButton1_Click()

If OptionButton1 = True Then
    Spalte = 6
ElseIf OptionButton2 = True Then
    Spalte = 9
ElseIf OptionButton3 = True Then
    Spalte = 12
ElseIf OptionButton4 = True Then
    Spalte = 15
End If

Unload UserForm2

End Sub

Leider funktioniert es nicht und "Spalte" bleibt immer 6.. Kann mir jemand weiterhelfen und sagen wie ich es hin bekomme, dass Spalte geändert wird?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen