Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich auswählen

Forumthread: Bereich auswählen

Bereich auswählen
Volker
Hallo zusammen,
ich übergebe Textboxinhalt an eine Tabelle.
durch den nachstehenden Code wird die Erste freie Zelle im Bereich angesprochen.
Set rngF = ActiveSheet.Range("_1.2_Themenkreis").Find(what:="", searchorder:=xlByColumns)
Soweit funktioniert auch alles.
Jetzt möchte ich aber, das der Bereich in welchem die Daten einzutragen sind durch einen Comboboxeintrag
bestimmt wird.
Set rngF = ActiveSheet.Range & Combox2.value .Find(what:="", searchorder:=xlByColumns)
habe ich auch versucht aber dort scheint irgendwo der Fehler zu liegen.
Würde mir bitte jemand sagen wo?
Danke fürs lesen und
Gruß
Volker
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich auswählen
27.05.2011 13:31:52
Rudi
Hallo,
Set rngF = ActiveSheet.Range(Combox2).value .Find(what:="", searchorder:=xlByColumns)
Gruß
Rudi
AW: Bereich auswählen
27.05.2011 13:45:55
Volker
Hallo Rudi,
danke für Deine Antwort
irgendwo ist da noch der Wurm drin. Excel mäkelt "Objektdefinierter Fehler"
hier der Codeausschnitt ( die Combobox liegt auf Userform1 ) sorry hatte ich nicht geschrieben:-(((
Private Sub CommandButton4_Click()    'Themenkreis 1.1
Dim rngF As Range
Set rngF = ActiveSheet.Range(Combox2).Value.Find(what:="", searchorder:=xlByColumns)
If Not rngF Is Nothing Then
rngF.Select
ActiveCell.Offset(0, 0) = UserForm1.TextBox18.Value
ActiveCell.Offset(0, 1) = UserForm1.TextBox17.Value
ActiveCell.Offset(0, 2) = UserForm1.TextBox19.Value
Unload UserForm1
Else
MsgBox "Es können keine weiteren Eintragungen vorgenommen werden!",  _
vbExclamation, "Hinweis"
Unload UserForm1
End If
ActiveWorkbook.Save
End Sub
Danke und Gruß
Volker
Anzeige
An (Combox2).Value liegt es nicht o.w.T
27.05.2011 13:56:15
Volker
AW: Bereich auswählen
27.05.2011 13:58:19
Rudi
Hallo,
ja, klar. Mein Fehler.
Set rngF = ActiveSheet.Range(Combox2.value) .Find(what:="", searchorder:=xlByColumns)
Gruß
Rudi
AW: Bereich auswählen
27.05.2011 14:00:47
Volker
Hallo Rudi,
vielen Dank jetzt klappt es.
Gruß
Volker
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige