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, 1111 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
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 ...

VB for Applications
Import Textdatei von Dateiname aus Zelle (2)

Frage von grasihuepfer zum Thema VB for Applications ...

Neue Wissensbeiträge
Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...