Vergleich eines Zellwertes mit mehreren Tabellenna
24.07.2015 08:05:53
johann
Hallo liebe Mitkämpfer,
ich würde gerne einen Zellenwert mit mehreren Tabellennamen vergleichen (falls kein tabellenname mit dem Zellwert übereinstimmt, würde ich gerne eine Tabelle mit diesem Zellwert als Namen hinzufügen.
Schönen Gruss
Johann
AW: Vergleich eines Zellwertes mit mehreren Tabellenna
24.07.2015 09:16:52
Nepumuk
Hallo,
ein Beispiel:
OptionExplicit
PublicSub Beispiel() Dim strSheetName AsString Dim objWorksheet As Worksheet Dim blnFound AsBoolean strSheetName = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value 'Anpassen !!! For Each objWorksheet In ThisWorkbook.Worksheets If objWorksheet.Name = strSheetName Then blnFound = True ExitFor EndIf Next IfNot blnFound Then Set objWorksheet = ThisWorkbook.Worksheets.Add( _ Before:=ThisWorkbook.Worksheets(1)) objWorksheet.Name = strSheetName EndIf Set objWorksheet = Nothing EndSub
Gruß
Nepumuk
Anzeige
AW: Vergleich eines Zellwertes mit mehreren Tabellenna
24.07.2015 17:12:30
johann
Hallo Nepumuk,
vielen, vielen Dank.
Ich habe das eigentliche Problem auf eine andere Weise gelöst (So sind sie halt, die Anfänger-Programmierer).
Ich werde deine Lösung aber auf alle Fälle ausprobieren, und danke sehr herzlich für deine Mühe und Antwort.
Eine schöne Zeit
Johannn