VBA Formelfehler

[LexLea]

Hallo zusammen

Hätte eine kleine Frage
Die übergabe an das Excel sheet funktioniert aber nur untereinander  sollte aber nebeneinander stehen
Habe schon einige Sachen ausprobiert und zwar mit .End(.......) und .Offset(........)
Könnte mir jemand dabei Bitte Helfen

Code:

Private Sub CommandButton_Speichern_Click()
   Dim objControl As MSForms.Control
   For Each objControl In MultiPage1.SelectedItem.Controls
       If TypeOf objControl Is MSForms.TextBox Then
          With Worksheets("Übersicht")
           .Cells(.Rows.Count, 1).End(xlUp).Offset(1) = objControl.Value
           End With
       End If
   Next
End Sub

[Klaus-Dieter]

Hallo,

zeige doch mal deine Datei, dann braucht man das nicht nachbauen.

[RPP63]

Moin!
.End(xlUp) ermittelt die letzte benutzte ZEILE einer Spalte.
Um die letzte SPALTE einer Zeile zu ermitteln, nutze
.Cells(1, .Columns.Count).End(xlToLeft)

.Offset(1) ist eigentlich .Offset(1, 0) ist also ein Zellenversatz von + 1 Zeile und 0 Spalten.
Folgerichtig nimmst Du dann .Offset(0, 1)

Gruß Ralf

[LexLea]

  Auditneu1.xlsm (Größe: 284,82 KB / Downloads: 3)

Hier mal meine Daten
und Danke für Drüberschauen

[LexLea]

@ RPP63

War leider nicht ganz das wahre
   

Da 2 Profis sich die Datei gerade anschauen
aus einen vorhergehenden Beitrag von mir

Es geht um die Multipage mit 10 Pages und der Combobox mit Auswahl

in der Combobox wird die auswahl getroffen in welches Sheet gespeichert wird
und im Auditbericht ist die auswahl +/o/- dieser wert soll dann in die jeweilige Zeile
des Sheets übertragen werden

vieleicht hättet Ihr einen vorschlag wie das machbar ist

[steve1da]

Hola,


und warum antwortest du hier nicht?

https://www.office-fragen.de/index.php/t...381.0.html

Gruß,
steve1da

[LexLea]

Hallo zusammen

jetzt sollte es ohne Fehlermeldungen sich öffnen lassen


  Audit_2018.xlsm (Größe: 274,94 KB / Downloads: 2)