Excel Daten in Formular übertragen

Computer: Software & Programmierung Visual Basic
#1

Hallo

Stehe vor folgendem Problem:

Ausgangslage:
Habe ein riesiges Excel-Blatt mit tausenden Adressdaten. Es hat div. Spalten, z.B. Name, Ort, PLZ, etc. Die Daten können über eine Userform angeschaut und geändert werden. Die Aenderungen werden dann in das Excel-Blatt zurückgeschrieben.

Problem:
Nun möchte ich die Daten einer Adresse (=1 Zeile über mehrere Spalten) in einem neuen Arbeitsblatt mittels Button in der Userform so darstellen, dass sämtliche Daten gedruckt werden können. Z.B. Name in A2, Strasse in A3, PLZ in A4, Ort in B4, usw.

Gibt es eine entsprechende Formel in VBA welche ich auf einen Button hinterlegen kann?

Stehe hier irgendwie an und weiss nicht mehr weiter.

Vielen Dank für jegliche Hilfe.
Michael

#2

Hallo Michael.

Mit folgendem Code schreibst Du in Tabelle1:

With Tabelle1
 .Cells(1,1) = "Herr Mustermann" 'Zelle A1
 .Cells(2,1) = "Musterstraße 1" 'Zelle A2
 .Cells(3,1) = "12345 Musterstadt" 'Zelle A3
End With

Jetzt brauchst Du eigentlich „nur“ den Code so anpassen, daß der Name des Tabellenblattes übereinstimmt mit dem Namen des Tabellenblatt, in das Du schreiben willst. Weiterhin mußt Du natürlich Herrn Mustermann ändern. Wahrscheinlich hast Du auf Deinem UserForm Textboxen, dann sieht das ganze prinzipiell so aus:

With Tabelle1
 .Cells(1,1) = Textbox1.Text
 ...
 ...
End With

Soweit erstmal

Viele Grüße
Carsten

#3

Hallo Carsten

Besten Dank für deine Hilfe. Wie geht denn das mit ? Habe momentan folgenden Code:

'Print Selected Record
Sub CommandButton8\_click()
With Formular
 .Cells(1, 1) = TextBox1.Text
End With
End Sub

Kenne mich leider nicht so gut aus mit dieser Funktion…

[MOD] Nun kannst Du Dir Deinen Pre-Tag ansehen. :smile:
OK? Sonst schreib mal 'ne Mail.
Gruß, Rainer