Kopieren und einfügen von Inhalt aus einer textbox an eine Zelle im Arbeitsblatt bewegen?

Arbeite ich an einem VBA-Projekt zum automatisieren der Excel-tool für eine service-desk-Anfragen tracker. Ich möchte, sobald die Befehlsschaltfläche geklickt wird, um den Inhalt zu kopieren von einem Textfeld in ein anderes Arbeitsblatt Zeile. Wenn ich wiederholen Sie die Aufgabe, den textbox-Inhalt gespeichert werden soll in die nächste leere Zelle in derselben Zeile.

Habe ich dieses makro:

Private Sub CommandButton1_Click()
    TextBox1.Text = ""
    TextBox1.Copy
    'TextBox2.Copy
    'TextBox3.Copy
    Range("A2").Select
    Do
        If IsEmpty(ActiveCell) = False Then
            ActiveCell.Offset(1, 0).Select
        End If
    Loop Until IsEmpty(ActiveCell) = True
End Sub

InformationsquelleAutor Chinraj Palanichamy | 2012-02-27

2

Die Sie wirklich brauchen nur eine Zeile code in die sub:
```
Private Sub CommandButton1_Click()
    Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text
End Sub
```
Obwohl Sie nicht so sagen, wie es aussieht, wollen die textbox gelöscht werden als gut. Wenn ja, dann fügen Sie TextBox1.Text = "" eine Zeile vor End Sub.

InformationsquelleAutor Jean-François Corbett

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.