Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

tabellen anlegen mit abfrage und vorlage

tabellen anlegen mit abfrage und vorlage
14.03.2005 10:07:55
roland_k
hoi guten morgen
beisse mir wieder mal zähne aus :((
ich habe in ner tabbelle ne liste mit namen in spalte B5 - B22
jetzt will ich beim start der mappe tabellen anlegen mit name in B5 ..-B22
aber eben nicht leeres blatt sondern "vorlage" kopieren und dann mit dem namen benennen
zuvor sollte eben ne abfrage laufen ob die tabelle schon existiert weil ja sonst fehler kommt
danke im voraus ...
gruss roland_k

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: tabellen anlegen mit abfrage und vorlage
14.03.2005 10:37:12
UweD
Hallo
so ginge es:

Sub Mach_Neu()
Dim FR, i%, T$
On Error GoTo Fehler
For i = 5 To 22
T = Sheets("Tabelle1").Cells(i, 2).Value
If T <> "" Then
Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = T
End If
Next
Exit Sub
Fehler:
If Err.Number = 1004 Then
MsgBox T & " ist bereits vorhanden!"
ActiveSheet.Name = "Neu " & T
Err.Clear
Resume Next
Else
MsgBox "unbekannter Fehler"
End If
End Sub

Gruß UweD
debugger bei bereits vorh namen ..hmmm
14.03.2005 11:07:19
roland_k
hi uwe
das anlegen funktioniert aber ?
bei neustart der datei kommt debugger kan nicht gleiche namen anlegen
du willst da ne msgbox haben ...aber das wäre auch muehsam diese bei allen bereits vorkommenden namen schliessen
ich denke es sollten alle vorh tabellen in nem array stehn und dann ne abfrage ob neu anlegen nur wenn tabelle nicht vorhanden hatte sowas schon mal gebastelt aber finde das nicht mehr
die namen in der tabelle werden eben immer wieder ergänzt oder erweitert so muesste immer die neu hinzugekommenen angelegt werden
danke fuer deien muehe
gruss roland_k
Anzeige
AW: debugger bei bereits vorh namen ..hmmm
14.03.2005 14:10:49
UweD
Neuer Versuch


      
Sub Mach_Neu()
    On Error Resume Next
    Dim I%, F%, T$, TB, VL, Ex, WasNun%, JN As Boolean
    ' Anpassen ******
    Set TB = Sheets("Tabelle1") ' Seite mit den Eintragungen
    Set VL = Sheets("Vorlage") ' Name der Vorlage
    '****************
    WasNun = MsgBox("Sollen bereits bestehende Tabellen ausgelassen werden", vbQuestion + vbYesNo)
        For I = 5 To 22
        T = TB.Cells(I, 2).Value
        If T <> "" Then
            JN = False
            For Each Ex In ActiveWorkbook.Sheets
                If Ex.Name = T Then
                    JN = True
                    Exit For
                End If
            Next
            If JN = False Then ' Tabelle noch nicht vorhanden
                VL.Copy after:=Sheets(Sheets.Count)
                ActiveSheet.Name = T
            Else
                If WasNun <> 6 Then ' Tabelle ist schon da
                    VL.Copy after:=Sheets(Sheets.Count)
                    ActiveSheet.Name = T & " " & Format(Now, "YYYYMMDDhhmmss")
                    F = F + 1
                End If
            End If
        End If
    Next
    TB.Activate
    If F <> 0 Then MsgBox F & " Tabelle(n) bereits vorhanden." & Chr(13) & Chr(13) _
         & "Zeitstempel wurde angehängt"
End Sub 



Hier eine Beispielmappe:
https://www.herber.de/bbs/user/19645.xls
Anzeige
versuch gelungen ...danke...weiterer T
16.03.2005 01:54:13
roland_k
hi uwe danke das funkt prächtig ....
aber eben ...bin am basteln...dass dann alle nicht benoetigten tabellen ausgeblendet werden
und immer nur die sichtbar sind die ich in 4 verschiedenen comboboxen anklicke(auswähle)
d h ich habe ein keglerturnier
4 namen sind eine mannschaft ....dann soll fuer jeden namen ne tabelle sichtbar sein
daher alle voher anlegen....z . 22 kegler ---22 tabellen
dann sind eben nur 4 kegler am wertung machen, die tabellen werden mit ergebnissen ergänzt und dann gesichtet und gedruckt
nun habe muehe wenn da nicht weiterkomme muss wohl neu posten ?
danke dir fuer die zeit und muehe die loesung hat mich jedenfalls recht weiter gebracht
gruss roland_k
Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige