input-box

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: input-box
von: jürg
Geschrieben am: 23.03.2005 18:23:03
Hallo
forum
mochte aus zwei eins machen
möchte mit input box zelle auswählen und dann anschliessend dass aus der zelle zwei zeilen entstehen
kann mir jeman nen typ geben
mit Gruss
jürg


Sub CommandButton1_Click()
Dim ziel As Range
Set ziel = Application.InputBox("Welche Zelle möchten Sie auswählen?", Type:=8)
'ziel.Select
'End Sub

'

Sub Zeilenumbruch()
    'With Worksheets(1)
    'ziel.Select
       ziel.WrapText = True
        Value = "Zeile 1" & Chr(10) & "Zeile 2"
    'End With
End Sub

Bild

Betrifft: AW: input-box
von: Klaus Schubert
Geschrieben am: 24.03.2005 00:15:15
Hallo Jürg,
wie wär's hiermit:

Sub CommandButton1_Click()
Dim ziel As Range
Set ziel = Application.InputBox("Welche Zelle möchten Sie auswählen?", Type:=8)
With ziel
    .WrapText = True
    .Value = "Zeile 1" & Chr(10) & "Zeile 2"
End With
End Sub


Jetzt Zelle angeben, z.B. A10 , dann sollte es funktionieren.
Gruß Klaus
Bild

Betrifft: AW: input-box
von: jürg
Geschrieben am: 24.03.2005 07:25:05
Hallo Klaus
vielen Dank es funktioniert!!
mit gruss
Jürg
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blätter mit fortl. Nummern umbenennen"