info_type z.B. =ZELLE"Typ";## vs =CELL"Type";## -->Mehrsprachig?

Hallo,



Type:=0 für Formel

Type:=1 für Zahl

Type:=2 für Text

Type:=4 für True oder False

Type:=8 für Zellbezug (Range)

Type:=16 für Fehlerwerte (#N/A z.B.)

Type:=64 für eine Wertematrix



Dazu kannst du auch noch verschiedene Typen kombinieren, indem du ihren Wert addierst,

Type:=3 z.B. wäre für Zahl und Text (1+2)



Mit freundlichen Grüßen

Claus

Hallo,



nimm bitte keine VBA-Schlüsselwörter als Variablenname. Außerdem kannst du die ActiveCell nicht mit Set irgendwie zuweisen, denn ActiveCell ist die momentan aktive Zelle.

Ändere z.B. so:



Sub ClearContents()

Dim app As Application

Dim rngStart As Range

Dim lrow As Long

Dim lcol As Integer

Set app = Application

Set rngStart = app.inputbox(prompt:="Select starting cell", Type:=8)

With rngStart

lrow = Cells(Rows.Count, .Column).End(xlUp).Row

lcol = Cells(.Row, Columns.Count).End(xlToLeft).Column

End With

Range(rngStart, Cells(lrow, lcol)).ClearContents

End Sub



Mit freundlichen Grüßen

Claus

Die Zellen direkt auszuwählen ist auch mein Vorschlag, spiel mal mit der Sub ein bißchen rum, wähle z.B. auch mehrere Zeilen, einzelne Zellen in verschiedenen Reihen, etc.

Mit dem Range geht mehr als man denkt.

Andreas.

Sub Test()

Dim R As Range

Dim i As Integer



On Error GoTo ExitPoint

'Zelle wählen lassen

Set R = Application.InputBox("Select (a cell in a) row", Type:=8)

'Schnittmenge mit F:H bilden

Set R = Intersect(R.EntireRow, Range("F:H"))

'Zeigen

R.Select



'Jede Zelle in dem Bereich ausfüllen

For Each R In R

R = i

i = i + 1

Next



ExitPoint:

End Sub

Hallo Claus,



danke erstmals für die schnelle Antwort. Es funktioniert aber leider noch nicht.

LRow bekommt den richtigen Wert für die letzte Zeile, das Ausgeben funktioniert aber noch nicht.

Ich habe erst deine Version probiert, dann noch eine andere um die Range zu bestimmen...



LRow = .Cells(Rows.Count, "E").End(xlUp).Row

'cb_jahr.RowSource = Range("E3:E" & LRow)

cb_jahr.RowSource = Range(.Cells(3, 5), .Cells(LRow, 5))



Er schimpft jedes mal und meint "Typen unverträglich". Muss ich den Datentyp von LRow vielleicht ändern? Bzw. wie weiß ich denn in VBA welchen Typ eine Variable bekommt, man muss sie ja nicht zwangsläufig definieren, oder?



Grüße,

Katharina

Hallo Wolfgang,

selektiere die Zelle => Bedingte Formatierung => Regel verwalten => Regel bearbeiten und stelle bei "Alle Zellen basierend auf ihren Werten formatieren" bei Minimum Typ Zahl und Wert 0 und bei Maximum Typ Zahl und Wert 1.

Dann entspricht die Größe des Balkens den Werten.

Claus