Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1060to1064

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Sheets.Name bei AddInn

Forumthread: Sheets.Name bei AddInn
11 Beiträge zu diesem Forumthread
Anzeige
308 Threads zu ähnlichen Themen
Top 100 Forumthreads

22.03.2009 20:59:56

mknelles

Hallo Leute,
>wb.Sheets.Countwb.Sheets.Name Gruß Markus

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sheets.Name bei AddInn

22.03.2009 21:06:12

Original
set wb=ActiveWorkbook owT

22.03.2009 22:04:10

D.Saster
AW: Sheets.Name bei AddInn

22.03.2009 22:34:09

mknelles
AW: Sheets.Name bei AddInn

22.03.2009 22:44:20

D.Saster
AW: Sheets.Name bei AddInn

23.03.2009 08:12:05

sukram
AW: Sheets.Name bei AddInn

23.03.2009 09:11:03

Tino
es funktioniert! getestet! owt

23.03.2009 09:37:23

D.Saster
AW: es funktioniert! getestet! owt

23.03.2009 18:03:35

sukram
AW: es funktioniert! getestet! owt

24.03.2009 08:50:51

D.Saster
AW: es funktioniert! getestet! owt

25.03.2009 09:18:48

sukram
.

25.03.2009 09:23:11

.

AW: Sheets.Name bei AddInn

22.03.2009 21:06:12

Original

Hi,
Schnickschnack, zeig mal den ganzen Code.
Richtig referenziert geht das natürlich völlig problemlos.
mfg Kurt

set wb=ActiveWorkbook owT

22.03.2009 22:04:10

D.Saster

AW: Sheets.Name bei AddInn

22.03.2009 22:34:09

mknelles

Code:


Public Function ListSheets(strCat As String) As String
'On Error Resume Next
Dim wb As Excel.Workbook
Dim i As Integer
Dim n As Integer
Dim strTmp As String
Dim strSheetName As String
Set wb = ActiveWorkbook
n = Len(strCat)
For i = 1 To wb.Sheets.Count
strSheetName = Sheets(i).Name
If Left(strSheetName, n) = strCat Then
If strTmp = "" Then
strTmp = strSheetName
Else
strTmp = strTmp & ", " & strSheetName
End If
End If
Next i
ListSheets = strTmp
End Function

AW: Sheets.Name bei AddInn

22.03.2009 22:44:20

D.Saster

Hallo,
sollte doch funktionieren.
Gruß
Dierk

AW: Sheets.Name bei AddInn

23.03.2009 08:12:05

sukram

Wenn's funktionieren würde, wär's wahrscheinlich keine Frage im Forum, Mr. D.Saster
M.

AW: Sheets.Name bei AddInn

23.03.2009 09:11:03

Tino

Hallo,
gehe zum testen im Einzelschrittmodus durch (Taste F8).
Wenn Du mit der Maus über eine Variable gehst, bekommst Du den Inhalt als Quickinfo angezeigt.
So müsstest Du den Fehler finden.
Gruß Tino

es funktioniert! getestet! owt

23.03.2009 09:37:23

D.Saster

AW: es funktioniert! getestet! owt

23.03.2009 18:03:35

sukram

Mr. D.Saster,
Deine Antworten sind mindestens so blöd wie Dein Name - solche Antworten braucht kein Forum, kein Internet und schon gar nicht die Menschheit.
Ich frage mich wie Du einfach behaupten kannst es funktioniert, wenn Du das Problem ganz offensichtlich nicht einmal erkannt hast.
P.S.: Bei uns gibt es einen schönen Spruch: Wenn' se keine Ahnung hast einfach mal die Fresse halten - tut gar nicht weh!!!
Gr. M.

AW: es funktioniert! getestet! owt

24.03.2009 08:50:51

D.Saster

mit diesem Ton hast du dich für zukünftige Antworten disqualifiziert.
Wenn ich sage, dass der Code funktioniert, dann funktioniert er auch. Du bist intellektuell nur nicht in der Lage, das richtig anzuwenden.

AW: es funktioniert! getestet! owt

25.03.2009 09:18:48

sukram

Mr. Destaster owt
Du hast den Sinn eines Forums nicht verstanden !
M.

25.03.2009 09:23:11