Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Peter3011 vom 23.10.2019, 09:32 Options
Tabellenblätter markieren
Hallo Excelperten,
nach langer Zeit bin ich mal wieder an meine Grenzen geraten.
Ich habe eine Datei erstellt, in der mein Chef so viele Projekte anlegen kann, wie er will (z. B. 20 Projekte). Jedes Projekt hat 6 eigene Tabellenblätter (Bilanz, GuV, CF etc).
Nun möchte er bspw. Projekt 2 löschen. Das heißt, das alle 6 Blätter für dieses Projekt zunächst markiert werden müssen. Der folgende Pfad tut das, aber nur für Projekt 2.
Sheets(Array("Project 2", "Deckblatt 2", "Steuerung 2", "Summary 2", "GuV 2", _
"Zins und Tilgung 2")).Select
Wie kriege ich das hin, dass dieser Befehl auch für andere Projekte gültig ist.
Über Hilfe würde ich mich sehr freuen.
Gruß
Peter3011
nach langer Zeit bin ich mal wieder an meine Grenzen geraten.
Ich habe eine Datei erstellt, in der mein Chef so viele Projekte anlegen kann, wie er will (z. B. 20 Projekte). Jedes Projekt hat 6 eigene Tabellenblätter (Bilanz, GuV, CF etc).
Nun möchte er bspw. Projekt 2 löschen. Das heißt, das alle 6 Blätter für dieses Projekt zunächst markiert werden müssen. Der folgende Pfad tut das, aber nur für Projekt 2.
Sheets(Array("Project 2", "Deckblatt 2", "Steuerung 2", "Summary 2", "GuV 2", _
"Zins und Tilgung 2")).Select
Wie kriege ich das hin, dass dieser Befehl auch für andere Projekte gültig ist.
Über Hilfe würde ich mich sehr freuen.
Gruß
Peter3011
Antwort 1 von DukeNT vom 23.10.2019, 10:58 Options
Hi Peter3011,
wenn die Tabellenblätter mit jeweils der Projektnummer enden dann versuch mal folgendes.
Sub Projektlöschen()
pro = InputBox("Bitte Projekt-Nr. eingeben")
Application.DisplayAlerts = False
a = Sheets.Count
Do Until a = 1
If Sheets(a).Name Like "*" & pro Then Sheets(a).Delete
a = a - 1
Loop
Application.DisplayAlerts = True
End Sub
Gruß Niels
wenn die Tabellenblätter mit jeweils der Projektnummer enden dann versuch mal folgendes.
Sub Projektlöschen()
pro = InputBox("Bitte Projekt-Nr. eingeben")
Application.DisplayAlerts = False
a = Sheets.Count
Do Until a = 1
If Sheets(a).Name Like "*" & pro Then Sheets(a).Delete
a = a - 1
Loop
Application.DisplayAlerts = True
End Sub
Gruß Niels
Antwort 2 von gast123 vom 23.10.2019, 11:32 Options
hi all
auf selectionen kann zu 99% verzichtet werden
gruss gast123
Option Explicit
Sub Selectierung_die_nicht_sein_sollte()
Dim Nummer As Integer
Nummer = "1"
Sheets(Array("Project " & Nummer, "Deckblatt " & Nummer, "Steuerung " & Nummer, "Summary & Nummer", "GuV & Nummer", _
"Zins und Tilgung " & Nummer)).Select
End Sub
auf selectionen kann zu 99% verzichtet werden
gruss gast123
Option Explicit
Sub Selectierung_die_nicht_sein_sollte()
Dim Nummer As Integer
Nummer = "1"
Sheets(Array("Project " & Nummer, "Deckblatt " & Nummer, "Steuerung " & Nummer, "Summary & Nummer", "GuV & Nummer", _
"Zins und Tilgung " & Nummer)).Select
End Sub
Antwort 3 von gast123 vom 23.10.2019, 11:34 Options
hi all :-)
Dim Nummer As String natuerlich
gruss gast123
Dim Nummer As String natuerlich
gruss gast123
Ähnliche Themen
Tabellenblätter ein- / ausblenden
dirkvdhurk 16.04.2007 - 247 Hits - 1 Antwort
Tabellenblätter nach Liste benennen
Eubion 29.06.2007 - 153 Hits - 11 Antworten
Hyperlink funktioniert nicht !
danielG 02.07.2007 - 142 Hits - 3 Antworten
Excel VBA -- Tabellenblätter auswählen und drucken
snailhouse 08.08.2007 - 207 Hits - 2 Antworten
daten aus mehreren tabellenblätter zusammenführen
Fladi 16.04.2008 - 195 Hits - 9 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
