Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Code ergänzen

Betrifft: Code ergänzen von: lasmik
Geschrieben am: 08.08.2008 16:38:10

hallo

kann mir wer den code so ergänzen das der bereich: Then ActiveSheet.Name = Target.Value auch dann funkt. wenn ich d3 angeklickt habe?
wenn ich c3 anklicke dann wird das blatt umbenannt, bei d3 klappt es nicht.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$3" Or Target.Address = "$D$3" Then UserForm1.Show
    If Not Intersect(Target, Range("C3")) Is Nothing And Target.Count = 1 And Not IsEmpty( _
Target) _
Then ActiveSheet.Name = Target.Value
End Sub



vielen dank lasmik

  

Betrifft: AW: Code ergänzen von: Knut
Geschrieben am: 08.08.2008 16:42:51

Hi,

sind die Zellen etwa verbunden? Wenn ja, Verbund aufheben.

mgh Knut


  

Betrifft: AW: Code ergänzen von: Matthias L
Geschrieben am: 08.08.2008 16:51:50

Hallo

Ich habs schon oft versucht zu erklären.
Nun hat lasmink den 4. Beitrag eröffnet zu 1 Problem

Ursprung:
https://www.herber.de/forum/messages/998549.html
weiter hier
https://www.herber.de/forum/messages/998882.html
und hier
https://www.herber.de/forum/messages/1000062.html


Gruß Matthias


  

Betrifft: AW: Code ergänzen von: lasmik
Geschrieben am: 08.08.2008 16:55:20

hallo

sind nicht verbunden.

was heist "mgh"


lasmik


  

Betrifft: AW: Code ergänzen von: Knut
Geschrieben am: 08.08.2008 16:57:51

mgh = mit grünem Hut


  

Betrifft: noch ein Versuch ... von: Matthias L
Geschrieben am: 08.08.2008 16:47:11

Hallo lasmik

Klicke auf C2 oder D2 in der Datei
https://www.herber.de/bbs/user/54454.xls

Der Name wird dann übernommen.


Du hast in Deinen letzten Beiträgen immer von C3 un D3 geschrieben
In Deinem Beispiel war es aber dann C2 und D2. War Dir das bewußt

Gruß Matthias


  

Betrifft: AW: noch ein Versuch ... von: lasmik
Geschrieben am: 08.08.2008 17:17:02

hi

da funkt. bei mir garnichts. fehler in der range (c2)

danke lasmik


  

Betrifft: AW: Code ergänzen von: Peter Feustel
Geschrieben am: 08.08.2008 16:49:01

Hallo lasmik,

ich würde es so versuchen:

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$C$3" Or Target.Address = "$D$3" Then UserForm1.Show
    
   If Not Intersect(Target, Range("C3")) Is Nothing _
      And Target.Count = 1 And Not IsEmpty(Target) Or _
      Not Intersect(Target, Range("D3")) Is Nothing _
      And Target.Count = 1 And Not IsEmpty(Target) Then
      ActiveSheet.Name = Target.Value
   End If

End Sub



Gruß Peter


  

Betrifft: AW: Code ergänzen von: lasmik
Geschrieben am: 08.08.2008 17:14:23

hallo

klappt leider nicht, blatt wird nicht umbenannt. es gehört noch folg. userform dazu:

Option Explicit

Private Sub CommandButton1_Click()
[c3] = UCase(Left(Me.TextBox1, 1)) & LCase(Mid(Me.TextBox1, 2))
[h3].Select
Unload UserForm1
End Sub




liegt der fehler hier?

danke


  

Betrifft: neue Datei von: Matthias L
Geschrieben am: 08.08.2008 17:29:56

Hallo lasmik

bitte C2 oder D2 ändern

https://www.herber.de/bbs/user/54455.xls

Gruß Matthias


  

Betrifft: Danksagung von: lasmik
Geschrieben am: 11.08.2008 19:21:43

hallo an alle


vielen herzlichen dank an alle helfer. jetzt klappt das alles so wie ich es mir vorstelle.

dank für die geduld mit mir.

mfg lasmik