Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn tabelle exisiert dann abbruch

wenn tabelle exisiert dann abbruch
10.01.2006 16:54:41
mehmet
hallo forum
es soll abgefragt werden, ob eine tabelle namens "tab1" exisiert
wenn nein dann tabelle einfügen mit dem namen "tab1"
wenn ja dann msgbox "tabelle exisiert bereits" und makro abbruch
dank und gruss
mehmet

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn tabelle exisiert dann abbruch
10.01.2006 16:59:48
Josef
Hallo Mehmet!
Ich nehm' dafür imer eine kleine Funktion!
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Function SheetExist(ByVal sheetName As String, Optional WbName As String) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If WbName = "" Then WbName = ThisWorkbook.Name
For Each wks In Workbooks(WbName).Worksheets
  If wks.Name = sheetName Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function


Sub test()
If SheetExist("Tabelle1") Then
  MsgBox "Gibt's schon!"
  Exit Sub
End If
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: wenn tabelle exisiert dann abbruch
10.01.2006 17:07:33
mehmet
hallo sepp
ich wollte deine lösung eigendlich zu ein anderen makro integrieren
allerdings ist deine lösung für mein verständnis zu kompliziert
meinst du, dass man eine elegantere lösung finden könnte mit eine simplen
if-abfrage
dank und gruss
mehmet
AW: wenn tabelle exisiert dann abbruch
10.01.2006 17:15:56
mehmet
hallo sepp
dank dir
gruss
mehmet
AW: wenn tabelle exisiert dann abbruch
10.01.2006 17:02:10
Reinhard
Hi Mehmet, 
Sub tt()
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "tab1" Then vorh = True
Next ws
If vorh = True Then
MsgBox "vorhanden"
Exit Sub
Else
Worksheets.Add
ActiveSheet.Name = "tab1"
Sheets(1).Activate
End If
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige
AW: wenn tabelle exisiert dann abbruch
10.01.2006 17:12:06
mehmet
hallo reinhard
dank dir
gruss
mehmet

303 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wenn Ordner noch nicht existiert dann MsgBox Meld.
Josef

Hallo!
Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
Dim dokname
Dim dokname2
dokname = Range("Tabelle1!D1").Value
dokname2 = Range("Tabelle1!D2").Value
With Application.FileDialog(4)
.InitialFileName = "K:\Allg_da...
04.12.2008 06:21:22
Thread-ID: 1030007
3 Beiträge
Anzeige
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
SummeWenn bei nicht exaktem Zelleninhalt
Tommi

Liebes Excel-Forum,
ich habe eine Datei, bei der in ein Textfeld Namen eingegeben werden. Die eingegebenen Namen (z.B. Max Mustermann) werden über eine Zellverlinkung in Zelle K4 ausgeworfen. Eine SummeWenn-Funktion in Zelle K5 schaut dann, wieviele Kosten für den Namen bereits aufgelaufen...
01.04.2009 11:13:57
Thread-ID: 1065916
10 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
summewenn über Index / Matrix ?
Pascal

Hallo zusamme,
ich stehe zurzeit vor einem kleinen Excelproblemchen.
Ich habe eine Tabelle die in Spalten Monate angeordnet hat (Monate kommen mehrfach vor).
In der Zeilenüberschrift stehen mehrere Prozentuale Werte (Kommen jeweil nur einmal vor)
Nun möchte ich jeweils quasi die...
26.06.2009 13:35:46
Thread-ID: 1084587
2 Beiträge
summe wenn nur text kriterien
ivonne

hallo,
ich sitze schon seit stunden und kapier´s einfach nicht :(
ihr genies könnt mir sicher einen tipp geben - für euch bin ich echt anfänger ;(
ich habe eine riesen exce liste
spalte a steht text spalte b steht text und in spalte g stehen euro werte
ich brauche eine summe...
17.07.2009 14:19:23
Thread-ID: 1089433
17 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
2
2
2
2
9
2
1
16
10
6
4
3
5
2
3
10
2
3
3
8
4
2
1