Laufzeitfehler bei Range.Select

Private Sub CommandButton1_Click() Dim TB1 As String 'TB = Textbox Dim TB2 As String Dim ZiBl As String 'ZiBl = Zielblatt Dim ZiBe As String 'ZiBe = Zielbereich TB1 = TextBox1.Text TB2 = TextBox2.Text ZiBl = Combobox1.Text ZiBe = Range("Ausg_Bereich").Text Sheets(ZiBl).Activate Range(ZiBe).Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim TB1 As String 'TB = Textbox Dim TB2 As String Dim ZiBl As String 'ZiBl = Zielblatt Dim ZiBe As String 'ZiBe = Zielbereich Dim Ausg_Bereich As String Ausg_Bereich = Range("Ausg_Bereich").Address 'TB1 = TextBox1.Text 'TB2 = TextBox2.Text 'ZiBl = ComboBox1.Text ' ZiBe = Range("Ausg_Bereich").Address ZiBe = Ausg_Bereich MsgBox ZiBe 'Sheets(ZiBl).Activate 'Range(ZiBe).Select End Sub

Private Sub CommandButton1_Click() Dim TB1 As String 'TB = Textbox Dim TB2 As String Dim ZiBe As String 'ZiBe = Zielbereich Dim ZiBl As String 'ZiBl = Zielblatt TB1 = TextBox1.Text TB2 = TextBox2.Text ZiBl = ComboBox1.Text ZiBe = Range("Ausg_Bereich").Text Sheets(ZiBl).Activate Range(ZiBe).Select End Sub

Hallo Michael,
hier noch schnell meine Fragen/Bemerkungen zu deinem Problem, bevor ich wieder eine Zwangspause einlege Mutter Oberin hat für heute "Unkraut rupfen" befohlen.
Um dir weiter helfen zu können fehlt mir zunächst ein bisschen Hintergrundwissen.
Wozu dient deine Datei, was willst du damit erreichen?
Woher kommen die Daten in den einzelnen Sheets?
In welchem Sheet möchtest du (per Makro) eine Zeile einfügen?
Wenn das Sheet "Datenblatt" die Datenbasis für die Comboboxen ist, was muss ich unter den Spaltenüberschriften verstehen?
Was verbirgt sich z.B. hinter Untersuchungsgebiet? Sind das Länder, Organisationseinheiten oder was auch immer?
Sollen die Daten der UF wirklich in das Sheet "Dateneingabe" übertragen werden?
Ich habe zwar schon mal angefangen, deine UF-Codes zu überarbeiten, aber irgendwie zerschießen mir deine anderen Makros alles wieder. Werde sie evtl. in der Bspl-Datei löschen müssen.
Gruß, Rolf

Hallo Rolf,
* mit Hilfe der Datei soll der Fortschritt / die Ergebnisse von Untersuchungen dokumentiert werden. Es git ein Untersuchungsumfang z.B. Fortbewegungsmittel, dies unterteilt sich in Untersuchunggebiete z.B. Fahrräder, hierzu gibt es ein Untersuchungssoll z.B. Vorderrad ohne Achter eingebaut, ein Untersuchungsist z.B. leichter Achter vorhanden, ein resultierendes Risiko für den Betrieb z.B. geringes Risiko. Später werden über bedingte Formatierungen die Ergebnisse der 15 Gebiete aus 11 Umfängen auf einem Blatt zusammengestellt und "visualisiert" (Windings-symbole).
* Die Daten sollen von verschiedenen Nutzern über das Tab.blatt Dateneingabe in die Blätter Umfang 1 - 11 eingfügt werden.Immer abhängig davon, welcher Umfang in der entsprechenden Box ausgewählt ist.
* Die Zeile soll in das Tab.blatt Umfang 1-11, welches über die Checkbox ausgewählt wurde im entsprechenden Gebiet1-15 oberhalb der letzten Zeile des Bereiches eingefügt werden.
* Der Untersuchungsumfang wäre z.B. Fortbewegungsmittel, das Gebiet wäre z.B. Fahrrad, das Teil wäre z.B. Damenfahrrad, dies sind nur erdachte Beispiele, da ich die orig.Bezeichnungen nicht in Netz stellen kann.
* siehe oben
* bzgl. der Userform - entschuldige, die habe ich vergessen zu löschen. Das ist/war ein erster Versuch den ich in Ermangelung von VBA-Kenntnis abgebrochen habe und jetzt über das Blatt Dateneingabe realisieren möchte. Ich hoffe du hattes noch nicht all zu großen Aufwand damit?!
Gruß Micha

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler bei Range.Select

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread