Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ich suche eine Lösung

Ich suche eine Lösung
01.06.2020 09:59:46
Thomas
Guten Morgen,
Ich suche eine Lösung für das überprüfen von Tabellenblätter in der Arbeitsmappe.
Ich mache folgendes, per VBA kopiere und verschiebe ausgefüllte Tabellenblätter. Der Name des Tabellenblatts wird aus einer Zelle im Tabellenblatt gelesen und eingefügt. Jetzt kann es aber vorkommen dass beim weiteren kopieren und verschieben der Tabelle, der Tabellenname der schon existiert wieder benütz wird. So wird dann excel ein für sich logischen Blattname generieren und die Tabelle so dann abspeichern.
Ich möchte jetzt aber dass wenn ich die Tabelle kopiere und verschiebe, eine Prüfung abläuft und sollte der Name schon vorkommen müsste eine Msg box mit der Meldung kommen dass dieser Blattname schon existiert. Und wenn der Name frei ist, sollte der Prozess gewöhnlich weiter ablaufen.
Kann man so was machen? Für eine Hilfe hierzu wäre ich dankbar.
Freundliche Grüsse
Thomas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ich suche eine Lösung
01.06.2020 10:13:11
Hajo_Zi
Hallo Thomas,
feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:
Option Explicit
Sub TabAuswahl()
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle1" Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then
'vorhanden
Else
'nicht vorhanden
End If
End Sub


AW: Ich suche eine Lösung
01.06.2020 13:40:45
Thomas
Hallo Hajo, besten Dank für deine Mühe!
Ich habe dein Skript al in eine Arbeitsmappe übernommen und ein ein Modul eingebaut. Habe es dann mal laufen gelassen aber es kommt keine Reaktion vom Skript. Keine Ahnung wieso?
Wollte jetzt gerade mal meine Datei anhängen aber es geht nicht.
Darum stelle ich das Skript mal hier einfach so rein. Ev. Siehst du daran was ich machen will.
Danke und Gruss Thomas
Sub RapportArchivieren()
'Rapport archivieren prüfen
If Tabelle1.Range("AE7") Neuer Rapport

Anzeige
AW: Ich suche eine Lösung
01.06.2020 15:06:16
Hajo_Zi
Hallo Thomas,
Meine Vorschlag hat Dir also nicht Gefallen darum ist er nicht entrhalten.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.
Gruß Hajo
AW: Ich suche eine Lösung
01.06.2020 16:01:38
Thomas
Hallo Hajo,
und wie mir dein Vorschlag gefällt. :-) ich kann ihn weiter verarbeiten und integrieren. besten Dank!!!!
AW: Ich suche eine Lösung
01.06.2020 14:07:32
Thomas
Hallo Hajo,
wenn man ein bisschen studiert kommt was raus dabei.
Ich habe dein Grundgerüst zum laufen gebracht und sogar mit der Funktionsweise die ich brauche.
Somit alles bestens und danke schön nochmal.
Sub TabAuswahl()
Dim Zelle As String
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = Tabelle1.Range("A1") Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then
MsgBox "ja"
Else
MsgBox "nein"
End If
End Sub

Anzeige
AW: Ich suche eine Lösung
01.06.2020 14:17:39
GerdL
Moin 
Sub Unit()
If TabNamevorhanden(Tabelle1.Range("A7")) = True Then
MsgBox "Der Name ist bereits vorhanden!"
Exit Sub
End If
MsgBox "Weiter im Code!"
End Sub
Public Function TabNamevorhanden(strName As String) As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If UCase$(WsTabelle.Name) = UCase$(strName) Then
TabNamevorhanden = True
Exit Function
End If
Next WsTabelle
End Function

Gruß Gerd

209 Forumthreads zu ähnlichen Themen

Suche nach einem bestimmten Wort
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei, in der immer wieder
in zwei verschiedenen Zellen ( deren Position sich nach jeder
Aktualisierung woanders befindet ) das Wort : Gesamtergebnis
erscheint. Ich möchte jetzt gerne mittels eines VBA - Codes, daß
mir Excel die...
23.10.2008 08:33:21
Thread-ID: 1018507
5 Beiträge
Anzeige
Passworteingabe funktioniert nicht
Timmy

Liebe Excler,
ich habe vor, ein Blatt mit einem Passwort zu hinterlegen, welches man eingeben muss, wenn man einen bestimmten Button drueckt. Dafuer habe ich folgenden Code:
Private Sub PurchasingButton1_Click()
'Last Change: 01/27/2009
'starts the Process and functions of the P...
28.01.2009 15:16:00
Thread-ID: 1044583
5 Beiträge
Datenübertrag ohne Passworteingabe möglich?
Dietmar

Guten Abend zusammen!
Hat jemand eine Idee wie ich Daten in ein Passwortgeschütztes Tabellenblatt (nicht Blattschutz, um Veränderungen zu verhindern, sondern Passwortschutz, um dieses Sheet überhaupt öffnen zu können) übertragen kann, ohne das Passwort eingeben zu müssen?
Situation:
...
23.03.2009 22:04:32
Thread-ID: 1063075
6 Beiträge
Anzeige
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Wortteil in Tabelle suchen und Zelle markieren
Elmar

Hallo zusammen,
ich bräuchte mal Hilfe... ich krieg´s irgenwie selbst nicht hin.
Ich möchte ein Makro, das mir Suchbegriffe aus einer Liste ausliest (Liste z.B. in Tabelle 2 von A1 bis A10) und damit (mit den Suchbegriffen) eine andere Tabelle dann durchsucht. Wenn der Begriff (das ist...
17.08.2009 22:44:22
Thread-ID: 1096582
8 Beiträge
Online-Forum: Antwortformular erscheint nicht
Constantin

Hallo,
da ich neu im Forum bin, eine Verständnisfrage: Wenn auf einen Beitrag geantwortet (incl. Programmcode) wurde und man hierauf wiederum antworten möchte, erscheint zuweilen ein Antwortformular, in dem der Betreff bereits die entsprechende Überschrift ("AW:....") beinhaltet. Was ist, w...
30.09.2009 10:15:47
Thread-ID: 1106364
8 Beiträge
Ich suche eine Formel
Larissa

Hallo,
ich suche eine Formel, die ich mal versuche zu beschreiben:
Die Suchkriterium wird in Spalte E aus dem Tabellenblatt "Kontierung" der Mappe PP_RB_Eingang.xls gesucht.
Ein Ausschnitt der Spalte E sieht so aus, wobei immer nach den letzten 4 Ziffern gesucht werden soll.
944...
31.10.2009 13:08:03
Thread-ID: 1113490
15 Beiträge
doppelte Werte suchen und markieren
Wolfgang

Hallo,
suche eine Lösung für folgendes Problem:
Habe eine Tabelle, in der von Zelle A10 bis J1000 Daten mittels Maske eingetragen werden. Nun kommt es vor, das bei der Auswertung = Ausdruck in einigen Zeilen (immer die komplette Zeile ist doppelt, nicht eine Zelle !!!) doppelte Werte st...
26.11.2009 12:43:01
Thread-ID: 1120227
16 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
4
4
4
5
5
1
7
7
14
15
7
15
5
3
5
1
1
2
8
8
3
6
5
3
4