Wert von Zelle finden und von anderer Tabelle dane

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Wert von Zelle finden und von anderer Tabelle dane
von: Steve
Geschrieben am: 30.05.2002 - 12:59:22

Hallo
Habe folgendes Problem.
Bestitze ein Tabellenblatt "Übersicht" mit folgenden Werten in Spalte A:
zBsp:
A
1/2
2/2
3/2
4/2
5/2
...
...
Ausserdem noch 4 andere Tabellen mit folgenden Namen:
KategorieA, KategorieB, KategorieC, KategorieD
Alle vier Kategorien besitzen auch solche Werte in Spalte A nur dass noch eine Spalte B mit beliebigen Werten vorhanden ist.
Bsp:
KategorieA.......KategorieB
A........| B.................A...| B
01/02 | 120......04/04 | 20
02/02 | 254..................|..
03/02 |110...................|..

Jetzt sollten per makro die Werte von "KategorieA" der Spalte A in die Tabelle "Übersicht" der Spalte A gefunden werden und die Werte der Spalte B von KategorieA in Spalte B der Tabelle Übersicht kopiert werden.

Das gleiche sollte mit den KetegorieB, C und D geschehen, nur dass die Werte der Spalte B Kategorie B in die Spalte C und nicht in Spalte B "Übersicht" kopiert werden, die Werte von Kategorie Spalte B in Spalte D usw.

Das ganze könnte dann folgendes Aussehen haben:
Bsp:
Tabelle Übersicht

A.........| B...| C....|D...|
01/02 |120| 122|kein Wert
02/02 |254| 321|Kein Wert
03/02 |110| 210|211
04/02 |.......| 210|111

Freu mich auf alle Vorschläge
Danke
Steve















nach oben   nach unten

Re: Wert von Zelle finden und von anderer Tabelle dane
von: Heinz Ulm
Geschrieben am: 30.05.2002 - 16:38:16

Hallo Steve,

das sieht mir nach einer SVERWEIS (...)Möglichkeit aus. Probiere es einmal so.

Wenn du den Befehl nicht kennst melde dich.

Gruß Heinz


nach oben   nach unten

Re: Wert von Zelle finden und von anderer Tabelle dane
von: Steve
Geschrieben am: 30.05.2002 - 17:13:50

Hallo Heinz

Bin noch ziemlich Neueinsteiger und kenne mich noch nicht so gut damit aus.
Darum würde es mich freuen wenn du mir den gesamten Code schicken könntest.

Danke

Steve


nach oben   nach unten

Re: Wert von Zelle finden und von anderer Tabelle dane
von: WernerB.
Geschrieben am: 30.05.2002 - 17:16:41

Hallo Steve,

was hältst Du von diesem Code:


Option Explicit
Sub Sammeln()
Dim SuBe As Range
Dim K0 As String, s As String
Dim As Long, laR As Long, laR1 As Long
Dim As Byte
Const KA As String = "KategorieA"
Const KB As String = "KategorieB"
Const KC As String = "KategorieC"
Const KD As String = "KategorieD"
    Application.ScreenUpdating = False
    laR1 = Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To 4
      If i = 1 Then K0 = KA
      If i = 2 Then K0 = KB
      If i = 3 Then K0 = KC
      If i = 4 Then K0 = KD
      laR = Sheets(K0).Cells(Rows.Count, 1).End(xlUp).Row
      For j = 1 To laR
        s = Sheets(K0).Cells(j, 1).Value
        Set SuBe = Sheets("Übersicht").Range("A1:A" & laR1).Find(s, lookat:=xlWhole)
        If Not SuBe Is Nothing Then
          Sheets("Übersicht").Cells(SuBe.Row, i + 1).Value = _
            Sheets(K0).Cells(j, 2).Value
        Else
          MsgBox "Der Suchbegriff '" & s & "' wurde nicht gefunden !", _
            vbExclamation, "Hinweis für " & Application.UserName & ":"
        End If
      Next j
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Wert von Zelle finden und von anderer Tabelle dane
von: Steve
Geschrieben am: 30.05.2002 - 20:16:58

Hi Werner
Für die KategorieB und KategorieD klappt es einwandfrei
nur bei der KategorieA und der KategorieC gibt es noch ein kleines problem. Es wird nur die Hälfte der Werte kopiert.
Bsp.
KategorieA
200000
400000
400000
200000

überträgt er nur

200000
400000

Danke

Steve


nach oben   nach unten

Re: Wert von Zelle finden und von anderer Tabelle dane
von: steve
Geschrieben am: 30.05.2002 - 20:24:11

Hi Werner
Das Problem hat sich gelöst.
Vielen Dank hast mir sehr geholfen.

Danke
Steve


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wert von Zelle finden und von anderer Tabelle dane"