Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Breichsnamen und suchen

Breichsnamen und suchen
04.02.2013 14:38:20
ludmila
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Breichsnamen und suchen
04.02.2013 17:45:56
hary
Hallo
X Variabele auf Long setzen
und auf Verdacht:
 X = .Cells(.Rows.Count, I).End(xlUp).Row + 1
.Cells(X, I) = TextBox4.Text

gruss hary

AW: oder so?
04.02.2013 17:59:13
hary
Hallo nochmal.
Versuch's mal so:
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
X = .Cells(.Rows.Count, I).End(xlUp).Row + 1
.Cells(X, I) = TextBox4.Text
End If
Next I

gruss hary

AW: oder so?
04.02.2013 18:41:08
ludmila
Danke Hary,
funktioniert.
Gruß
Ludmila
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige