Hallo zusammen,
habe momentan ein Tabelle gegeben, mit 8 Spalten. Sortiert ist das Ganze nach Kundennummern.
Wenn ich eine Kundennummer eingebe in meine InputBox und anschließend auf den Button "Ja" klicke, sollen nur die Spalten 2 und 8 in das zweiteTabellenblatt übernommen werden.
Hier meine bisherige Programmierung:
Sub finden()
Sheets("Übersicht").Select
KundenNummer = InputBox("Bitte geben Sie die Kundenummer ein")
Cells.Find(KundenNummer).Activate
ActiveCell.Offset(0, 1).Select
FIRMA = Selection
ActiveCell.Offset(0, 6).Select
AnsprechPartner = Selection
ActiveCell.Offset(0, -3).Select
ListenPreis = Selection
RetVal = MsgBox("AnsprechPartner ist " & vbTab & _
AnsprechPartner _
& vbCrLf & "von der Firma " & vbTab & vbTab & FIRMA _
& vbCrLf & "zu zahlen sind " & vbTab & vbTab & _
Format(ListenPreis, "0.00") & " €" _
, vbYesNo, "Wollen Sie einen Brief schreiben?")
If RetVal = vbYes Then Call Test
End Sub
Das heißt jetzt fehlt mir noch die Prozedur Sub Test (), die nach der Auswahl irgendeiner Kundennummer immer die Werte aus Spalte 2 und 8 in das zweite Tabellenblatt übernimmt, am Besten ohne Formatierung!
Danke! |