Application.InputBox autom. bestätigen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Sorry, ich verstehe dich immer noch nicht (aber morgen ja vllt jemand anders :-) )
Wieso kann eine Textbox ihren Wert nicht an eine Zelle oder an ein Range-Objekt übergeben?
Ich hab gerad extra noch mal in der XL-Hilfe nachgelesen, was denn ein Range-Objekt ist.
Unterm Strich kommt immer eine Zelle raus.
Und der VBA-Code
Workbooks(1).Sheets(1).Range("A1").Value = UserForm1.Textbox1.Text
übergibt der Zelle A1 im ersten Tabellenblatt (Sheets(1)) aus der zuerst geöffneten Exceldatei (Workbooks(1)) den Wert aus der Textbox1 vom Userform mit dem Namen Userform1.
Na ja, ob dir das hier nun weiterhilft, weiß ich (noch) nicht, aber ich mchte gern verstehen, was du vorhast.
Ciao erstmal wieder
Thorsten

Nein, Du verstehst es wirklich nicht. Ich möchte keine Zellen beschreiben, sondern Spalten oder Zellen ein- oder ausblenden oder Zellbereiche entsperren. Das geht mit einer Inputbox komfortabler, da man nicht erst alles umständlich markieren muss. Das Markieren kann sehr umständlich sein, vor allem dann , wenn die Bereiche nicht zusammenhängen. Ich gebe zum Beispiel ein: A:D;F:F;H:I Diese Werte werden an das Rang-Object übergeben. Damit blende ich die angegebenen Spalten aus oder ein, je nach Makrocode. Und genau da liegt das Problem. Das ganze funktioniert nur, wenn die Werte (also die Bereichsangaben) aus einer Application.InptuBox (nicht die normale Inputbox) kommen. Kommen die Bereichsangaben aus einer Textbox oder einer normalen Inputbox, dann geht das ganze nicht.
Und damit Du verstehst, was ich meine, darfst Du mal das fogende Makro zu diesem Thema testen. Mi disem Makro kannst Du Spalten ausblenden, auch nicht zusammenhängende. Zum Wiedereinblenden Selection.EntireColumn.Hidden auf False setzen.


Sub Spalten_Aus()
Dim Bereich As Range
On Error Resume Next
Set Bereich = Application.InputBox _
("Bitte geben Sie die Zeilen ein, die Sie ausblenden möchten." & vbCrLf & "Beispiel:" & _
" Sie möchten die Spalten A bis D und G und K ausblenden," & _
" dann geben Sie folgendes ein: A1:D1;G;K", Type:=8)
Bereich.Select
Selection.EntireColumn.Hidden = True
Range("A1").Select
End Sub

Gruß, Rene

Private Sub CommandButton1_Click() 'Zeilen ausblenden ' in der TextBox muss dann z.B 7:7,12:12,19:20 eingegeben werden Dim Bereich As String Bereich = TextBox1.Text Range(Bereich).Select Selection.EntireRow.Hidden = True End Sub

Private Sub CommandButton2_Click() 'Zeilen einfügen ' in der TextBox muss dann z.B 9:9,18:18,15:15 eingegeben werden Dim Bereich As String Bereich = TextBox1.Text Range(Bereich).Select Selection.Insert Shift:=xlDown End Sub

Beliebteste Forumthreads (12 Monate)

Application.InputBox autom. bestätigen?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.InputBox autom. bestätigen?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread