|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Reiter automatisch einfügen und löschen |
12.05.2015 12:49:44 |
SebKro |
|
|
|
22.05.2015 22:51:53 |
Gast5311 |
|
|
|
01.06.2015 11:59:01 |
SebKro |
|
|
|
22.05.2015 22:52:53 |
Chris1807 |
|
|
|
23.05.2015 12:31:47 |
Gast85790 |
|
|
Von:
SebKro |
Datum:
12.05.2015 12:49:44 |
Views:
2039 |
Rating:
|
Antwort:
|
Thema:
Reiter automatisch einfügen und löschen |
|
Hallo zusammen,
habe mir aus diversen Beiträgen eine VBA Skript umgeschrieben welches neue Register einfügt. Jedoch gibt es für mich zwei Probleme:
1. Nach erstellen des Registers springt man immer in das letzte Blatt
2. Löschen eines Zelleninhalts löst einen Fehler aus. Gerne würde ich das entsprechende Register gelöscht haben
Ich hoffe ihr könnt mir helfen
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Application.Intersect(Target, Range("C10:C28"))
If Target Is Nothing Then Exit Sub
On Error GoTo ErrorHandler
Application.EnableEvents = False
Dim rngZelle As Range
For Each rngZelle In Target
Next rngZelle
ErrorHandler:
Application.EnableEvents = True
For Each NeueTabelle In Worksheets("Versuchsübersicht").Range("C10:C28").Value
If Not IsEmpty(NeueTabelle) Then
Sheets("Versuchsdok").Copy After:=Sheets(Sheets.Count)
Application.DisplayAlerts = False
On Error Resume Next: Sheets(NeueTabelle).Delete: On Error GoTo 0
Application.DisplayAlerts = True
Sheets(Sheets.Count).Name = NeueTabelle
End If
Next
End Sub |
- 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
|
Reiter automatisch einfügen und löschen |
12.05.2015 12:49:44 |
SebKro |
|
|
|
22.05.2015 22:51:53 |
Gast5311 |
|
|
|
01.06.2015 11:59:01 |
SebKro |
|
|
|
22.05.2015 22:52:53 |
Chris1807 |
|
|
|
23.05.2015 12:31:47 |
Gast85790 |
|
|