Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich

Forumthread: Vergleich

Vergleich
17.08.2006 14:53:11
Christian
Hallo,
habe mal wieder ein kleines Problemlein.
Habe in einem Sheet A eine Spalte folgendem Formates "ASP DT-900011-1100"
In einem anderem Sheet B folgendes Format"DT-900011"
ASP ist mir eigentlich egal
DT-9000xx ist die Projektbezeichnung
-1100 Unterkonten
Im Sheet B gibt es keine Unterkonten.
Marko soll nun nach allen Unterkonten -1100 suchen.
Wenn er in Sheet A das Unterkonto gefunden hat, soll er nach dem Projekt hier im Beispiel (DT-900011) in Sheet B suchen und einen Wert des Unterkonto von A in B eintragen.
Hoffe man versteht mich : )
Gruß
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vergleich
17.08.2006 15:49:11
fcs
Hallo Christian,
folgendes Makro führt die Such und Übertragungsaktionen aus. Blattnamen und Spaltennummern muss du noch anpassen.
Das zu suchende Unterkonto wird in einerEingabebox abgefragt (Eingabe ohne den Bindestrich davor!)
Gruß
Franz

Sub UK_Daten_uebertragen()
Dim wksA As Worksheet, wksB As Worksheet, Zeile As Long
Dim SpalteA As Integer, SpalteB As Integer, SpalteUK As Integer
Dim UK As String, KTR As String, Finden As Range
Set wksA = ActiveWorkbook.Worksheets("SheetA")
Set wksB = ActiveWorkbook.Worksheets("SheetB")
SpalteA = 1 'Spalte mit Projekt-KTR-UK in Blatt A
SpalteB = 1 'Spalte mit KTR in Blatt B
SpalteUKA = 4 'Spalte in der auf Blatt A Info zu UK entnommen werden soll
SpalteUKB = 2 'Spalte in der auf Blatt B Info zu UK eingetragen werden soll
UK = InputBox("Zu suchender Unterkostenträger")
If UK = "" Then Exit Sub 'Abbrechen geklickt
With wksA
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
KTR = Mid(.Cells(Zeile, SpalteA).Value, 5, 9) 'Kostenträger "ausschneiden"
' UK mit letzte 4 Zeichen vom Zellwert vergleichen
If Right(.Cells(Zeile, SpalteA).Value, 4) = UK Then
'KTR im Blatt B suchen
Set Finden = wksB.Columns(SpalteB).Find(what:=KTR, LookIn:=xlValues, lookat:=xlWhole)
If Not Finden Is Nothing Then
wksB.Cells(Finden.Row, SpalteUKB).Value = .Cells(Zeile, SpalteUKA).Value
End If
End If
Next Zeile
End With
wksB.Select
End Sub

Anzeige
AW: Vergleich
17.08.2006 15:58:17
Christian
SUPERRRRRR DANKE
du hast mir meinen baldigen Feierabend gerettet.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige