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"