Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige