Einfügen und speichern in andere Mappe?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Workbooks.Open "C:\Users\Spenski\Desktop\Test.xlsx" Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(1, 0) = Now() Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 1) = Now() Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 3) = TextBox1.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 4) = TextBox2.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 5) = TextBox6.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 6) = TextBox3.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 7) = TextBox7.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 8) = TextBox4.Text Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 9) = TextBox5.Text If OptionButton1.Value = True Then Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 2) = "A" End If If OptionButton2.Value = True Then Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 2) = "B" End If If OptionButton3.Value = True Then Sheets("tabelle1").Cells(65536, 1).End(xlUp).Offset(0, 2) = "C" End If ActiveWorkbook.Close True End Sub

...noch etwas lernen?
Guten Morgen Christian
Erst mal freuts mich natürlich für dich, dass du deinen Code so hinbekommen hast, wie du möchtest.
Darf ich dir trotzdem eine Verbesserung (Verschönerung) vorschlagen?
hier, versuch mal

Private Sub CommandButton1_Click()
Dim lloNextRow As Long
Workbooks.Open "C:\Users\Spenski\Desktop\Test.xlsx"
With Sheets("tabelle1")
lloNextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lloNextRow, 1) = Now()
.Cells(lloNextRow, 2) = Now()
.Cells(lloNextRow, 4) = TextBox1.Text
.Cells(lloNextRow, 5) = TextBox2.Text
.Cells(lloNextRow, 6) = TextBox6.Text
.Cells(lloNextRow, 7) = TextBox3.Text
.Cells(lloNextRow, 8) = TextBox7.Text
.Cells(lloNextRow, 9) = TextBox4.Text
.Cells(lloNextRow, 10) = TextBox5.Text
If OptionButton1.Value = True Then
.Cells(lloNextRow, 3) = "A"
Else
If OptionButton2.Value = True Then
.Cells(lloNextRow, 3) = "B"
Else
If OptionButton3.Value = True Then
.Cells(lloNextRow, 3) = "C"
End If
End If
End If
End With
ActiveWorkbook.Close True
End Sub

Erst mal habe ich Cells(65536, 1).End(xlUp) gegen Cells(Rows.Count, 1).End(xlUp).Row + 1 ausgetauscht.
Der Grund ist, dass deine Variante so die letzte, benutzte Zeile bis Excel 2003 ermittelt.
Aber du benutzt ja Excel 2007. Und ab 2007 können ja sehr viel mehr Zeilen/Spalten genutzt werden.
Es ist zwar unwahrscheinlich, dass du mehr als 65536 Zeilen nutzen wirst, oder? :-) Aber es wäre zumindest nicht unmöglich ;-)
Die eigentliche "Verschönerung" ist aber With Sheets("tabelle1").
In deinem Code beginnt fast jede Zeile mit Sheets("tabelle1").
Diese Wiederholungen lassen sich mit With ... und End With vermeiden.
Alle Befehle, die innerhalb von With/End With stehen und mit einem . beginnen, beziehen sich auf den Parameter hinter With, hier Sheets("tabelle1").
Stell dir mal vor, aus "tabelle1" wird "tabelle2".
So müsstest du in deinem Code fast jede Codezeile ändern.
Mit der With/End With-Variante müsstest du nur in der Zeile With Sheets("tabelle1") aus 1 eine 2 machen.
Und dann sind da noch die If-Bedingungen.
In deinem Code werden alle If-Bedingungen überprüft. Egal, wenn schon die erste Bedingung zutrifft.
Wenn du meine verschachtelten If-Bedingungen übernimmst, und z Bsp OptionButton1 ist ausgewählt, dann wird nur die Zeile darunter ausgeführt. Der restliche Code wird nicht mehr geprüft, weil ja nicht mehr erforderlich.
So, Christian, wenn du trotz allem weiterhin deinen Code nutzen willst, dann ist das natürlich ok.
Aber mir hats in den Fingern gejuckt, dir noch n paar Verbesserungen zu zeigen :-)
Ciao
Thorsten

Hi Christian
Wenn ich dich richtig vertstanden habe, dann...
...hast du eine Tabelle mit z Bsp 100 genutzen Zeilen
...mit deinem Code ermittelst du bis jetzt die nächste, freie Zeile in Spalte A
das wäre in diesem Fall Zeile 101
...wenn aber nun Kollege xy die Werte in den Zellen A100:J100 löscht, dann...
...ist Zeile 100 trotzdem noch benutzt, weil in hinteren Spalten noch Formeln enthalten sind
...der Code ermittelt als nächste, freie Zeile trotzdem Zeile 100, weil ja A100 gelöscht ist
...und somit würde dein Code die neuen Werte, eigentlich für Zeile 101 bestimmt
in Zeile 100 schreiben, und somit ist deine Tabelle durcheinander
Wenn ich damit also richtig liege, dann versuch es so
ändere diese Zeile

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

um in

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

für AndereSpalte musst du dann die Spaltenzahl eintragen, in der entweder ein Wert steht, auch wenn A-J gelöscht, oder in der eine Formel steht.
8 = Spalte H
9 = Spalte I
10 = Spalte J
usw
Hilfts?
Wenn nicht, zeig mal bitte eine Bsp-Datei. Dann such ich für dich die nächste, freie Zeile, auch wenn in letzter, benutzter Zeile A-J gelöscht ist.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Einfügen und speichern in andere Mappe?

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfügen und speichern in andere Mappe?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread