Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 203
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Thomas18 vom 06.12.2017, 15:12 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


VBA Excel Blattwechsel über Variable

 (79 Hits)

Hallo Leute hoffe ich habe das Problem Richtig benannt.

ein Makro mit welches zb. : Sub Zusammenfassung()
Sheets("Zusammenfassung").Select
End Sub
ist kein Problem aber
ich will zb das das makro aus zeile A1 nimmt und dann zu dem sheet geht.Wenn ich den namen in A1 ändere soll das makro dann eben zu dem neuen namen springen.

hoffe ihr könnt mir weiterhelfen.
mfg Thomas


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 06.12.2017, 16:17 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Thomas,

die einfachste Methode (ohne Prüfung, ob die Tabelle existiert):

Sub tabwechsel()

Worksheets(ActiveSheet.Range("A1").Value).Activate

End Sub


oder mit Prüfung, ob Blatt existiert:

Sub tabwechsel()

Dim strName As String
Dim i As Long

'Name aus Zelle A1 des aktiven Blattes in Variable schreiben
strName = ActiveSheet.Range("A1").Value

'Prüfen, ob Tabelle in Arbeitsmappe existiert
For i = 1 To ThisWorkbook.Worksheets.Count
 If strName = Worksheets(i).Name Then
  Worksheets(i).Activate
  Exit Sub
 End If
Next i

'Falls Blatt nicht existiert, dann Meldung ausgeben
MsgBox "Das Arbeitsblatt " & strName & "existiert nicht!", 16, "Fehler"

End Sub


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Fri Dec 8 16:26:13 2017