Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2024 12:41:55 |
Heiner |
|
|
|
04.06.2024 13:04:56 |
Gast38449 |
|
|
|
04.06.2024 13:19:40 |
Heiner |
|
|
|
04.06.2024 13:56:21 |
ralf_b |
|
|
|
04.06.2024 14:58:32 |
Gast38449 |
|
|
![Blau](images/pfeil_blau.gif) Wenn bestimmte Spalte gewählt MsgBox und Ende |
05.06.2024 12:54:36 |
Heiner |
|
|
|
05.06.2024 13:17:24 |
Flatulenz |
|
|
|
05.06.2024 13:42:11 |
Heiner |
|
|
Von:
Heiner |
Datum:
05.06.2024 12:54:36 |
Views:
93 |
Rating:
|
Antwort:
|
Thema:
Wenn bestimmte Spalte gewählt MsgBox und Ende |
Hallo zusammen,
okay hier das Makro. Das hat ein Kollege geschrieben, der jetzt aber erstmal ne längere zeit weg ist, ich fände es halt besser die Spalte zu fixieren.
Also aus Spalte C wird der Eintrag aus der aktiven Zelle genommen (zumindest steht das so im Quick Guide), ein neues Tabellenblatt angelegt und der Name ist der Eintrag aus der aktiven Zelle. Wenn ich jetzt aber versehnentlich in Spalte D bin, wird das Blatt falsch benannt.
Deswegen meine Frage ob es möglich ist das auf eine Spalte zu fixieren.
Sub AddSheet()
Dim wks As Worksheet
Dim var As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'********Zelle hinzufügen und Name aus aktiver Zelle *****
var = ActiveCell.Value
Set wks = Worksheets("Vorlage")
wks.Copy After:=Sheets(Sheets.Count)
On Error GoTo Err_copyWorksheetFailed
ActiveSheet.Name = var
On Error GoTo Err_RenameWorksheetFailed
Exit Sub
Err_copyWorksheetFailed:
Call MsgBox("A new worksheet could not be added.", vbCritical)
Err_RenameWorksheetFailed:
Application.DisplayAlerts = False
MsgBox "Page is still existing"
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = False
End Sub
Gruß Heiner
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2024 12:41:55 |
Heiner |
|
|
|
04.06.2024 13:04:56 |
Gast38449 |
|
|
|
04.06.2024 13:19:40 |
Heiner |
|
|
|
04.06.2024 13:56:21 |
ralf_b |
|
|
|
04.06.2024 14:58:32 |
Gast38449 |
|
|
![Blau](images/pfeil_blau.gif) Wenn bestimmte Spalte gewählt MsgBox und Ende |
05.06.2024 12:54:36 |
Heiner |
|
|
|
05.06.2024 13:17:24 |
Flatulenz |
|
|
|
05.06.2024 13:42:11 |
Heiner |
|
|