Re: Spalte markieren (Zelle) VBA
22.05.2002 10:38:37
Dirk
Hi, bin mittlerweile auf eine Userform umgestiegen, ist überschaubarer.
ich weiss nicht ob der Code was nützt, es ist nur ein kleiner Auszug. Hoffe es ist alles dabei,
Habe die Stelle gekennzeichnet wo ich hänge...USERFORM mit Textbox und Listbox und 2 Buttons (OK, Abbruch)
Private Sub Cmd1_Click()
vAuswahl = "": Me.Hide
frmDialog.Txtbox1.Text = ""
End Sub
Private Sub ListBox1_Click()
Txtbox1.Text = ListBox1.List(ListBox1.ListIndex)
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call Cmd1_Click
End Sub
Private Sub UserForm_Activate()
Dim Zelle As Object
'Listbox füllen
ListBox1.Clear
vAuswahl = ""
For Each Zelle In Sheets("NEU").Range("B1:IV1")
If Len(Zelle.value) = 0 Then Exit For
ListBox1.AddItem Zelle.value
Next Zelle
End Sub
Private Sub UserForm_Deactivate()
vModus = ""
End Sub
Sub TypLöschen()
'Ausgewählte Zelle löschen
Dim Y
'Bestätigung
Y = MsgBox("Möchten Sie wirklich eine Zelle entfernen", vbYesNo, "Zelle löschen")
If Y = vbNo Then: Exit Sub
If Y = vbYes Then
'Dialog öffnen
With frmDialog
.Modus = "löschen"
.Show
End With
If frmDialog.Auswahl <> 0 Then
Call TabSchutz(False)
Sheets("NEU").Select
' genau an dieser Stelle hänge ich fest
hier müsste die Spalte der gefundenen Zelle markiert werden (1:70) und dann gelöscht werden
frmdialog.auswahl ist als string deklariert (Zellinhalt wird übergeben aber nicht die Adresse der Spalte)
'Range().ClearContents
Exit Sub
Call TabSchutz(True)
Sheets("ALT").Select
Else: Exit Sub
End If
End If
End Sub
Danke für die schnelle Antwort, werde den vorschlag mal versuchen einzubinden..