Column
18.09.2003 16:50:52
LotharP
sorry ich bins schon wieder:
Ich hab' ein Makro das Zellen durchsucht und bei einem bestimmten Wert loescht oder eine Zeile einfuegt. Bisher hab' ich diese Auswahl immer im Makro selbst gemacht.
Beim Aufruf wurde ich nach der Spalte und dem Wert gefragt.
Das ganze habe ich jetzt in ein Userform eingearbeitet und das sieht folgendermassen aus:
Private Sub CommandButton1_Click()
Dim ausw As Boolean
MsgBox TextBox1
If ZDEL Then
ausw = False
Call vardelins(ausw)
'MsgBox "LÖSCHEN"
ElseIf ZINS Then
ausw = True
Call vardelins(ausw)
Else: MsgBox " Geben Si an ob sei Löschen oder Einfuegen möchten!"
Call testing2
End If
End Sub
Private Sub vardelins(ausw)
Dim inte As String
inte = ActiveCell.Column
MsgBox inte
calcoff 'eigene Sub schaltet automatische Berechnung aus
Do
Columns(inte).EntireColumn.Select HIER IST DAS PROBLEM
Er gibt mir zwar die richtige Spaltennummer mit, allerdings geht das Makro nur mit dem Spaltenbuchstaben?!
Ich wollte inte in einer zweiten Textbox abfragen, allerdings wollte ich diese Textbox dann auch mit der richtigen (ALSO AKTIVEN ) Spalte belegen.
Hier der Rest, der in einem anders aufgebaute Makro auch funktionuckelt!
On Error GoTo raus
Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Select
'Selection.EntireRow.Delete
'Selection.EntireRow.Hidden = True
Loop
raus:
calcon
End Sub
Wie krieg' ich das geregelt?
Gruß
Lothar