Office: (Office 2007) VBA Textbox und Namen definieren/ auf andere Mappe beziehen

Guten Tag,
ich spiele seit zwei Tagen zum ersten mal mit VBA rum. Ein bisschen Erfahrung habe ich damit aus Delphi(Pascal).
Nun habe ich aber die folgenden Probleme:

1. ist es möglich den Wert einer Textbox als Namen zu definieren und als Bereich den Inhalt von zwei weiteren Textboxen?
Meine bisherige Programmierung sieht so aus:

Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text 'Werte eintragen in die Tabelle
Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text
Range("G" & Cells(Rows.Count, "G").End(xlUp).Row + 1) = TextBox1.Text
Range("S" & Cells(Rows.Count, "S").End(xlUp).Row + 1) = TextBox2.Text
Range("S" & Cells(Rows.Count, "S").End(xlUp).Row + 1) = TextBox3.Text
Range("U" & Cells(Rows.Count, "U").End(xlUp).Row + 1) = TextBox4.Text
Range("U" & Cells(Rows.Count, "U").End(xlUp).Row + 1) = TextBox5.Text

ActiveWorkbook.Names.Add Name:=TextBox1.Value, RefersToR1C1:=TextBox2.Value & ";" & TextBox3.Value 'Namen definieren

Wäre es irgendwie möglich das sich das bezieht sich auf nicht die namen sind sondern die Bereiche wo die Textboxinhalte reingeschrieben wurden?


2. Ich habe probiert mich mit folgender Programmierung auf eine andere Mappe zu beziehen.

Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text 'Werte eintragen in die Tabelle
Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text
Range("G" & Cells(Rows.Count, "G").End(xlUp).Row + 1) = TextBox1.Text

Dies habe ich durch folgende Veränderungen probiert :

Sheets("Tabelle2").Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text
WorkSheets("Tabelle2"). Range("P" & Cells(Rows.Count, "P").End(xlUp).Row + 1) = TextBox1.Text

Theoretisch hat es auch funktioniert, nur das es nicht an die nächste freie Stelle (die bei 20 liegen würde) sondern auf die Zelle P164 schreibt. Beim nächsten aufruf schreibt er dann auch nicht in P165 sondern überschreibt P164.

Ich bin für jede Hilfe Dankbar und Bedank mich schonmal im Voraus :)
(Tut mir leid das ich keine Datei anhänge aber diese ist leider viel zu groß)

Grüße und schönen Morgen noch

 

Also 1. habe ich mitlerweile komplett gelöst.

Nur 2. hab ich des Problem immernoch. Eigentlich funktioniert alles einwandfrei. Nur sobald ich einen Button in einer anderen Tabelle einfüge um die Oberfläche zu öffnen dann schreibts mir die Daten nicht da rein wo sie hin sollen. Kann mir jemand helfen? Bzw hat jemand den ansatz einer Idee wie ich es Lösen könnte?

Vielen Dank

Grüße
Kabumdada

 

Moinsens!

Hm, ok... Ich würd in dem Fall mal das Problem "von hinten" angehen. Grundsätzlich willst Du:

Code:

workbooks(b).[COLOR=#3E3E3E]worksheets(s).cells(y,x).value = t[/COLOR]

(Du schriebst ja "andere Mappe"... Ansonsten entfällt der erste Teil mit dem "workbooks(wb).")

Einige Sachen sind ja bereits klar:

Code:

b = "???" ' workbook.name
s = "tabelle2"
x = 16 ' spalte "p"
t = textbox1.text

Kennst Du den Namen des workbooks? Oder benutzt Du "ActiveWorkbook" bzw. "ThisWorkbook"?

Wie auch immer, um die weitere Syntax etwas zu verschlanken und dadurch vor allem übersichtlicher zu machen, empfehle ich das Setzen von Objekt-Variablen, die WorkBook und WorkSheet aufnehmen:

Code:

set wb = thisworkbook ' oder workbooks(wb) oder activeworkbook oder was auch immer
set ws = wb.worksheets(s)

Jetzt geht es also "nur" noch um y, also die Zeile, in die der Wert rein soll.

Code:

y = ws.cells(ws.rows.count,x).end(xlup).row + 1

Und auf dieser Zeile könntest Du jetzt prima einen Breakpoint setzen und Dir über die Watches den Wert von y anzeigen lassen. Wenn da immer 164 rauskommt, hilft vielleicht noch davor:

Code:

wb.activate
ws.activate
ws.cells(y,x).activate

Dann siehst Du auch, wo der Cursor steht und wunderst Dich vielleicht, daß er auf einem ganz anderen Blatt als erwartet positioniert ist.

Code:

[COLOR=#3E3E3E]b = "[/COLOR][COLOR=#ff0000]???[/COLOR][COLOR=#3E3E3E]"[/COLOR]
[COLOR=#3E3E3E]set wb = workbooks(b)[/COLOR]
[COLOR=#3E3E3E]s = "tabelle2"[/COLOR]
[COLOR=#3E3E3E]set ws = wb.worksheets(s)[/COLOR]
[COLOR=#3E3E3E]
t = textbox1.text[/COLOR]
[COLOR=#3E3E3E]x = 16[/COLOR]
[COLOR=#3E3E3E]y = ws.cells(ws.rows.count,x).end(xlup).row + 1
[/COLOR][COLOR=#3E3E3E]
[/COLOR][COLOR=#3E3E3E]wb.activate[/COLOR]
[COLOR=#3E3E3E]ws.activate[/COLOR]
[COLOR=#3E3E3E]ws.cells(y,x).activate
[/COLOR][COLOR=#3E3E3E]
[/COLOR]workbooks(b).[COLOR=#3E3E3E]worksheets(s).cells(y,x).value = t[/COLOR]

Gruß, Michael