Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 1117 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 ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel-HYPERLINK Formel - den freundlichen Namen in der Formel aus Zelle (8)

Frage von Komoran12 zum Thema Microsoft Office ...

Microsoft Office
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (26)

Frage von jensgebken zum Thema Windows Server ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (22)

Frage von ahstax zum Thema Visual Studio ...

Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...