Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Name aus Zelle (A1) Tabellenblatt1 übernehmen für das Tabellenblatt2

Frage Microsoft Microsoft Office

Mitglied: winget

winget (Level 1) - Jetzt verbinden

04.02.2014, aktualisiert 05.02.2014, 1082 Aufrufe, 5 Kommentare, 2 Danke

Hallo zusammen,
folgender Fall:
Blattname aus der Zelle (z.B. A1 - das selbe Tabellenblatt) funktioniert mit dem folgenden Code wunderbar:

01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
If Target = Range("A1") Then 
03.
ActiveSheet.Name = Range("A1").Text 
04.
End If 
05.
End Sub
Jetzt möchte ich quasi das gleiche nur der Unterschied besteht darin, dass ich der Text in Zelle A1 (Tabelle1) eingebe und der Name (Text) soll für für das Tabellenblatt2 übernommen werden.

Ich habe versucht zu tricksen, indem ich ZelleA1-Tabelle1 mit ZelleA1-Tabelle2 verknüft habe. Leider wird der Name nur dann übernommen, wenn ich in ZelleA1-Tabelle2 reingehe und enter drücke.

Vielen Dank im Voraus
Mitglied: colinardo
04.02.2014, aktualisiert um 16:34 Uhr
Hallo winget,
Code in Tabellenblatt 1:
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    Set changeRange = ActiveSheet.Range("A1") 
03.
    If Not Application.Intersect(changeRange, Target) Is Nothing Then 
04.
        If changeRange.Value <> "" Then 
05.
            Worksheets(2).Name = changeRange.Value 
06.
        End If 
07.
    End If 
08.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: winget
04.02.2014 um 19:52 Uhr
Super danke...funktioniert!
Bitte warten ..
Mitglied: winget
05.02.2014, aktualisiert um 10:58 Uhr
Hi Uwe,
wie gesagt funktioniert super und es hat mich weiter geholfen.
Ich habe für mich weiterentwickelt > bezogen auf zwei Zellen, mehrere Arbeitsblätter und der Fall, dass die Zellen leer sind.

01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    Set changeRange = ActiveSheet.Range("A1") 
03.
    Set changeRange1 = ActiveSheet.Range("A2") 
04.
    If Not Application.Intersect(changeRange, Target) Is Nothing Then 
05.
        If changeRange.Value <> "" Then 
06.
            Worksheets(2).name = "Test1" + "_" + changeRange.Value + "_" + changeRange1.Value 
07.
            Worksheets(3).name = "Test2" + "_" + changeRange.Value + "_" + changeRange1.Value 
08.
            Worksheets(4).name = "Test3" + " " + changeRange.Value + "_" + changeRange1.Value 
09.
        Else 
10.
            Worksheets(2).name = "Test1" + "_" + "1" + "_" + changeRange1.Value 
11.
            Worksheets(3).name = "Test2" + " " + "2" + "_" + changeRange1.Value 
12.
            Worksheets(4).name = "Test3" + "_" + "3" + "_" + changeRange1.Value 
13.
        End If 
14.
    End If 
15.
     
16.
    If Not Application.Intersect(changeRange1, Target) Is Nothing Then 
17.
        If changeRange1.Value <> "" Then 
18.
            Worksheets(2).name = "Test1" + "_" + changeRange.Value + "_" + changeRange1.Value 
19.
            Worksheets(3).name = "Test2" + "_" + changeRange.Value + "_" + changeRange1.Value 
20.
            Worksheets(4).name = "Test3" + "_" + changeRange.Value + "_" + changeRange1.Value 
21.
        Else 
22.
            Worksheets(2).name = "Test1" + "_" + changeRange.Value + "_" + "1" 
23.
            Worksheets(3).name = "Test2" + "_" + changeRange.Value + "_" + "2" 
24.
            Worksheets(4).name = "Test3" + "_" + changeRange.Value + "_" + "3" 
25.
        End If 
26.
    End If 
27.
     
28.
     
29.
End Sub
Viele Grüße
Paul
Bitte warten ..
Mitglied: colinardo
05.02.2014, aktualisiert um 10:47 Uhr
Zeile 17 sollte wahrscheinlich so lauten:
  If changeRange1.Value <> "" Then 
Der Test ist dazu da eine Situation abzufangen in der der User den Inhalt der betroffenen Zelle löscht ...
Grüße Uwe
Bitte warten ..
Mitglied: winget
05.02.2014 um 11:02 Uhr
Natürlich
Super Augen!!!
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
VB for Applications
gelöst Zelle in Excel per Klick einfärben (5)

Frage von C.Mue83 zum Thema VB for Applications ...

Exchange Server
gelöst MS Exchange-Problem: Servername und Name im Zertifikat stimmen nicht überein (1)

Frage von KLeinstein.tm zum Thema Exchange Server ...

Datenbanken
MS Access: Mehrere Zeilen in einer Zelle zusammenfassen (2)

Frage von User1000 zum Thema Datenbanken ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (23)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Mac OS X
Mac kann nicht im LAN pingen alle anderen schon (19)

Frage von smartino zum Thema Mac OS X ...

Hyper-V
Langsames Netzwerk i210 LAN Karte (10)

Frage von Akcent zum Thema Hyper-V ...

Windows Server
Server 2016 - Kuriositäten (8)

Frage von certifiedit.net zum Thema Windows Server ...