Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige