Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Namen suchen und rechts was eintragen
23.01.2016 17:32:06
Erwin
Hallo Zusammen,
Ich habe eine Mitarbeiterliste mit mehreren Teams, die unterschiedliche Arbeitszeiten haben. Ich erstelle diese Liste jede Woche neu, muss aber immer kleinere Anpassungen machen, die ich automatisieren möchte.
Hier die Datei: https://www.herber.de/bbs/user/102988.xlsm
Wenn ich in Spalte B einen bestimmten Namen finde, muss in den Spalten F und J (Achtung - verbundene Zelle mit Spalte K) ein Eintrag gemacht werden.
Beispiel:
finde in Spalte B den Namen "Team1_Name4" dann trage in Spalte F "90" und in Spalte J "5" ein
finde in Spalte B den Namen "Team2_Name8" dann trage in Spalte F "75" und in Spalte J "3" ein.... und so weiter.
Ich benötige einen VBA Code, da dies Teil einer anderen Prozedur wird.
Vielen Dank schon mal
Grüße - Erwin

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Namen suchen und rechts was eintragen
23.01.2016 18:41:04
Crazy
Hi
das könnte so gehen
wobei mir unklar ist wo du die einzutragenden Werte her bekommst
btw immer diese sch... verbundenen Zellen
Option Explicit
Sub test()
Dim c As Range
Dim rngBereich As Range
Dim strSuche As String
Dim lngEingabe1 As Long
Dim lngEingabe2 As Long
strSuche = InputBox("Suchname eingeben")
If strSuche = "" Then Exit Sub
lngEingabe1 = InputBox("Wert für Spalte F")
lngEingabe2 = InputBox("Wert für Spalte J")
Set rngBereich = Sheets("Montag").Range("B22:C52")
Set c = rngBereich.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Cells(c.Row, "F").Value = CLng(lngEingabe1)
Cells(c.Row, "J").Value = CLng(lngEingabe2)
Else
MsgBox "nix gefunden"
End If
Set c = Nothing
Set rngBereich = Nothing
End Sub

MfG Tom

Anzeige
AW: VBA Namen suchen und rechts was eintragen
23.01.2016 18:57:33
Erwin
Hallo Tom,
danke für den Code, der passt ganz genau und super flexibel.
P.S.: Die Werte bekomme ich lfd. mitgeteilt und habe diese dann im Kopf ;)
Grüße Erwin

18 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige