Clever-Excel-Forum

Hallo Forum,

ich habe ein kleines Problem. Ich gebe Zahlen in ein Excel Tabellenblatt über eine Userform ein. Die erste Zahl wird in Spalte (1) "A" Zeile "5" eingegeben, die zweite Zahl soll in Spalte (37)"AK"eingegeben werden. Die dritte Zahl wieder in Spalte (1) "A" Zeile "7",die vierte Zahl in Spalte (37)"AK" Zeile "7" usw.


Private Sub CommandButton12_Click()
   Dim loLetzte As Long
   Dim wsTabelle As Worksheet
   If TextBox1 <> "" Then
      If CInt(TextBox1) > 100 Then
         MsgBox "Maximalwert ist 100"
      Else
         For Each wsTabelle In Worksheets
            With wsTabelle
               Select Case .Name
                Case "tag"
                     loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 2
                     If loLetzte < 5 Then loLetzte = 5
                     .Cells(loLetzte, 1) = CInt(TextBox1)
                     Case "tag geteilt"
                     loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
                     If loLetzte < 5 Then loLetzte = 5
                     .Cells(loLetzte, 1) = CInt(TextBox1)
             
                     End If
               End Select
            End With
         Next wsTabelle
         TextBox1 = ""
      End If
   Else
      MsgBox "Keine Werte vorhanden"
   End If
End Sub

Was muß ich änder? Im Voraus schonmal vielen Dank. 
Dann meine email adresse gibt es nicht mehr. Wie kann ich sie ändern?

Hallöchen,

reicht Dir etwas Theorie?
Ich würde schauen, ob in AK die letzte Zeilennummer kleiner ist als in A. Wenn ja, kommt dort der Eintrag rein, wenn nicht (er müsste dann gleich sein), kommt er nach A.

Hallo schauan,

vielen Dank für Deine Antwort, nur versteh ich kein Wort. Ich habe von VBA keine Ahnung. Den Code habe ich vom Forum. Du müßtest mir schon sagen was ich ändern muß.

Gruß empo

Hallo Empo,

dann beschreibe doch mal etwas ausführlicher, was du vor hast. In dem Quelltext werden zwei Tabellenblätter angesprochen, ist das auch bei dir so?

Hallo Klaus Dieter,

die Zahl soll in das Tabellenblatt "tag" eingefügt werden. Das andere Tabellenblatt wird für diese Eingabe nicht benötigt. Was mußt Du noch wissen?

Vielen Dank Empo

Hallo Empo,

in die Spalten A und AK kommt die gleiche Zahl?

Hallo Klaus-Dieter,

nein in Spalte A,Zeile 5 kommt die erste Zahl. Die nächste Zahl kommt in Spalte AK, Zeile 5. Die nächste Zahl kommt in Spalte A, Zeile 7. Die nächste Zahl in Spalte AK, Zeile 7 . Dann Spalte A, Zeile 9, dann Spalte AK, Zeile 9usw.