Werte finden und in andere Tabelle kopieren

Forumthread: Werte finden und in andere Tabelle kopieren

10.08.2005 11:49:10

Tobias

Hallo Excel-Forum,
ich habe lange in eurem Forum gestöbert, bin jedoch zu keine Lösung gekommen!
Deshalb hier meine Problemstellung:
In Tabellenblatt 2 ist eine Tabelle aus SAP kopiert worden.
In dieser Tabelle sollen nun Werte (Text) gesucht werden, und die Werte der nächsten beiden rechts davon liegenenden Zellen in einen bestimmten Bereich von einer Tabelle im Tabellenblatt 1 kopiert werden.
Dabei ist folgendes zu beachten:
Die zu kopierenden Werte sollen in einen bestimmten Bereich vom Tabellenblatt1 kopiert werden.
Dieser Bereich soll der User über die Eingabe in einer Inputbox angeben.
(Viel. kann er ja den Namen des Bereichs eingeben)
Um das Problem klarer darzustellen, habe ich eine Beipiel-Datei hochgeladen:
https://www.herber.de/bbs/user/25487.xls
Es wäre super wenn Ihr mir bei meinem Problem helfen könntet!!!
Vielen Dank schon mal im Voraus!!!
Viele Grüße
Tobias

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte finden und in andere Tabelle kopieren

10.08.2005 12:16:50

Unbekannter
AW: Werte finden und in andere Tabelle kopieren

10.08.2005 14:54:52

Tobias

AW: Werte finden und in andere Tabelle kopieren

10.08.2005 12:16:50

Unbekannter

Da.


Private Sub CommandButton1_Click()
Dim a, b, c
Select Case InputBox("Was")
Case Is = "1"
For a = 9 To 6 Step -1
For b = 11 To 2 Step -1
If Sheets(1).Cells(a, 1).Value = Sheets(2).Cells(b, 1).Value Then
Sheets(1).Cells(a, 2).Value = Sheets(2).Cells(b, 2).Value
Sheets(1).Cells(a, 3).Value = Sheets(2).Cells(b, 3).Value
End If
Next b
Next a
Case Is = "2"
For a = 9 To 6 Step -1
For b = 11 To 2 Step -1
If Sheets(1).Cells(a, 1).Value = Sheets(2).Cells(b, 1).Value Then
Sheets(1).Cells(a, 4).Value = Sheets(2).Cells(b, 2).Value
Sheets(1).Cells(a, 5).Value = Sheets(2).Cells(b, 3).Value
End If
Next b
Next a
Case Is = "3"
For a = 9 To 6 Step -1
For b = 11 To 2 Step -1
If Sheets(1).Cells(a, 1).Value = Sheets(2).Cells(b, 1).Value Then
Sheets(1).Cells(a, 6).Value = Sheets(2).Cells(b, 2).Value
Sheets(1).Cells(a, 7).Value = Sheets(2).Cells(b, 3).Value
End If
Next b
Next a
End Select
End Sub

Gruß UN1

AW: Werte finden und in andere Tabelle kopieren

10.08.2005 14:54:52

Tobias

Hallo,
Klappt im Beispiel hervorragend :-)
Vielen,vielen Dank für die prompte Lösung!!!
gruß Tobias

Beliebteste Forumthreads (12 Monate)

Werte finden und in andere Tabelle kopieren

Forumthread: Werte finden und in andere Tabelle kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread