Breichsnamen und suchen
04.02.2013 14:38:20
ludmila
ich möchte im angegeben Bereichsnamen Werte anfügen.
z.B.
Spalte B2: B50 = Name "Muster"
nun soll unter Muster ein Text angefügt werden.
Der Bereichsnamen ist immer bei geraden Spalten 2,4,6 usw. angegeben.
Nachfolgendes Makro funkt nicht
Private Sub CommandButton2_Click()
Dim rng As Range
Dim I, X As Integer
Dim Z As String
Dim WKB As Workbook
Dim STXT1, Dat As String
On Error Resume Next
Set WKB = Workbooks("Faktur.xlsm")
Dat = WKB.Worksheets("H").Cells(3, 5) 'gibt das geöffnete Arbeitsblatt an
STXT1 = ComboBox1.Value 'der zu suchende Text
With Workbooks(Dat).Worksheets("Titel")
For I = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
Set rng = .Columns(I).Find(what:=STXT1, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
'MsgBox "nix"
Else
End If
Next I
For X = 2 To .Cells(Rows.Count, I).End(xlUp).Row + 1 'nun soll unter der gesuchten Spalte der _
_
text eingetragen werden
.Cells(X, I) = TextBox4.Text
Next X
End With
End Sub
wo liegt der Fehler?
Danke!
Gruß
Ludmila
Anzeige