Herbers Excel-Forum - das Archiv

Hilfe von VBA-Profis erforderlich

Bild

Betrifft: Hilfe von VBA-Profis erforderlich
von: Fritz
Geschrieben am: 18.09.2003 15:55:28
Hallo VBA-Experten,
ich brauche eure Hilfe, weil ich folgende Aufgabenstellung nicht allein umsetzen kann:
In einer Arbeitsmappe befinden sich in den Tabellen V1 bis V6 (jeweils im Bereich B4:B30) Namen. In der jeweiligen Spalte H dieser Tabellen, kann diesen Namen jeweils ein "x" zugeordnet werden. Wenn einem Namen in diesen "V"-Tabellen ein "x" (in der gleichen Zeile) zugeordnet ist, dann möchte ich in allen Tabellen der Arbeitsmappe, die mit "P" beginnen, jeweils im Bereich B4:B60 nach diesen Namen suchen und die entsprechenden Namen in roter Schrift dargestellt haben.

Da ich weiß, dass sich in diesem Forum richtige Experten tummeln, hoffe ich auch diesmal um die notwendige Hilfe (leider sind meine VBA-Kenntnisse bisher äußerst gering).
Für jede Form der Hilfe bereits an dieser Stelle meinen Dank.

Mfg
Fritz

Bild

Betrifft: AW: Hilfe von VBA-Profis erforderlich
von: Nike
Geschrieben am: 18.09.2003 16:20:35
Hi,
stell mal ne Datei hier ins Forum (oben mit Durchsuchen und Datei zum Server)
nur so aus der Erklärung werd ich nicht schlau ;-)
Mal geht's um Tabellen mit V1 -V6 dann soll nach P gesucht werden???

Etwas mehr Input bitte...

Bye

Nike
Bild

Betrifft: AW: Hilfe von VBA-Profis erforderlich
von: Fritz
Geschrieben am: 18.09.2003 17:25:55
Hi Nike,
vielen Dank für Dein Interesse und Deine Mühe. Es tut mir leid, dass meine
Beschreibung für Dich so schwer nachvollziehbar war.
Ich habe jetzt die u.a. Beispieldatei hochgeladen und dieser im Tabellenblatt V1 noch einige Erläuterungen beigefügt. Ich hoffe sehr, dass Du damit klar kommst.
Ich wäre froh, wenn Du mir behilflich sein kannst und
grüße Dich

Fritz

https://www.herber.de/bbs/user/1077.xls
Bild

Betrifft: AW: Hilfe von VBA-Profis erforderlich
von: heinz
Geschrieben am: 18.09.2003 21:23:07
salve fritz

ich fahr übers wochenende weg - daher keine antworten möglich in dieser zeit

deine "friesierte datei":

https://www.herber.de/bbs/user/1079.xls

zum gleich ansehen:



Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim i1 As Integer
Dim i2 As Integer
Dim name As String
i1 = 4
Do Until Cells(i1, 2) = ""
If Cells(i1, 8) = "x" Then
name = Cells(i1, 2)
For Each ws In Worksheets
i2 = 4
If Left(ws.name, 1) = "P" Then
Do Until ws.Cells(i2, 2) = ""
If ws.Cells(i2, 2) = name Then ws.Cells(i2, 2).Font.ColorIndex = 3
i2 = i2 + 1
Loop
End If
Next ws
End If
i1 = i1 + 1
Loop
End Sub

Bild

Betrifft: Großes Lob und vielen Dank
von: Fritz
Geschrieben am: 19.09.2003 11:06:13
Hallo Heinz,
funktioniert alles einwandfrei. Danke und schönes Wochenende
Gruß
Fritz
Bild

Betrifft: AW: Hilfe von VBA-Profis erforderlich
von: heinz
Geschrieben am: 18.09.2003 16:32:22
hi fritz
ich glaub das ist noch nicht bei dir angekommen:

https://www.herber.de/bbs/user/1073.xls

vielleicht brauchst du es ja noch

das neue problem klingt ähnlich!?

heinz
Bild

Betrifft: AW: Hilfe von VBA-Profis erforderlich
von: Fritz
Geschrieben am: 18.09.2003 17:29:21
Hi Heinz,
selbstverständlich bin ich noch an Deiner Lösung interessiert und Du hast auch richtig vermutét. Ich möchte an einem kleinen Projekt über alle möglichen Hilfsvarianten auch in Sachen VBA etwas lernen und das kann ich von jedem Lösungsansatz von euch Experten.
Aber ich brauch noch einiges, bis ich mit euch auch nur in etwa "mithalten" kann.
Ich werde mich jetzt aber gleich mit Deiner Lösung beschäftigen und würde mich freuen, wenn Du mir vielleicht wieder einmal helfen kannst.

Gruß
Fritz
Bild

Betrifft: Vielen Dank Heinz
von: Fritz
Geschrieben am: 18.09.2003 19:52:48
Hallo Heinz,
ich habe mir Deine Lösung in der hochgeladenen Datei angeschaut und bin begeistert.
Ich werde deine Prozedur in mein Projekt einbauen. Vielen Dank.
Gruß
Fritz
Bild

Betrifft: thx f. reply - ot
von: heinz
Geschrieben am: 18.09.2003 19:56:04
 Bild
Bewerten Sie hier bitte das Excel-Portal