Thema Datum  Von Nutzer Rating
Antwort
12.10.2010 13:29:58 Steffi
NotSolved
12.10.2010 13:39:44 Severus
NotSolved
12.10.2010 16:04:58 Steffi
NotSolved
Blau Aw:Aw:Aw:Kopieren in anderes Tabellenblatt
12.10.2010 16:41:57 Severus
NotSolved
13.10.2010 07:12:16 Steffi
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
12.10.2010 16:41:57		 Views:
843		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Kopieren in anderes Tabellenblatt
Steffi schrieb am 12.10.2010 16:04:58:

Severus schrieb am 12.10.2010 13:39:44:

Steffi schrieb am 12.10.2010 13:29:58:

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!


Wohin im "zweiten Tabellenblatt" und wie jheißt es oder wie ist sein Index? Tatsächlich "2"?
Severus

Das zweite Tabellenblatt heißt "Brief". Der Wert aus Spalte 2 (im ersten Tabellenblatt "Übersicht") soll bei "Brief" in B1 und der Wert aus Spalte 8 in B2 kopiert werden.

Vielen Dank!

Option Explicit

Sub Finden_Brief()
Dim FIRMA As String
Dim KundenNummer As Single
Dim AnsprechPartner As String
Dim ListenPreis As Single
Dim RetVal As Long

With ThisWorkbook
.Sheets("Übersicht").Select
With ActiveSheet
KundenNummer = InputBox("Bitte geben Sie die Kundenummer ein")
.Cells.Find(KundenNummer).Select
FIRMA = ActiveCell.Offset(0, 1)
ListenPreis = ActiveCell.Offset(0, 4)
AnsprechPartner = ActiveCell.Offset(0, 7)
RetVal = MsgBox("AnsprechPartner ist " & vbTab & _
AnsprechPartner _
& vbCrLf & "von der Firma " & vbTab & vbTab & FIRMA _
& vbCrLf & "zu zahlen sind " & vbTab & vbTab & _
Format(ListenPreis, "0.00") & " €" & Chr(10) & "Wollen Sie einen Brief schreiben?" _
, vbYesNo + vbQuestion, "KundenBrief...")
If RetVal = vbYes Then
ThisWorkbook.Sheets("Brief").Range("B1") = ActiveCell.Offset(0, 1)
ThisWorkbook.Sheets("Brief").Range("B2") = ActiveCell.Offset(0, 7)
End If
End With
End With
End Sub

Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.10.2010 13:29:58 Steffi
NotSolved
12.10.2010 13:39:44 Severus
NotSolved
12.10.2010 16:04:58 Steffi
NotSolved
Blau Aw:Aw:Aw:Kopieren in anderes Tabellenblatt
12.10.2010 16:41:57 Severus
NotSolved
13.10.2010 07:12:16 Steffi
NotSolved