Office: vba syntax fragen (Excel 2000)

Ein dickes fettes "Hallo" an euch,

Ich bin es schon wieder.
Würde gern eurer Fachwissen in Beschlag nehmen.

Ich habe mich durch einiges lesen soweit vorgetastet um mittels eines Commandbuttons auf Zellen in selbigem Tabellenblatt anzusprechen und werte aus/ein zu lesen

Doch wie lautet die Syntax um ein anderes Tabellenblatt anzusprechen?
Zum Beispiel:
Commandbutton auf Tabelle1 und ich möchte den wert vom Tabellenblatt2 "A3" in Tabellenblatt 1 "A1" einzufügen

Hoffe ich hab mich klar ausgedrück und bekomm hilfe von euch

vielen dank im vorraus
Rami

 

Hallo,

VBA ist nicht so meine Baustelle, aber das sollte so funktionieren:

Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A1") = Sheets("Tabelle2").Range("A3")
End Sub

 

Hey Danke für die schnelle Antwort,
doch leider bekomm ich einen Laufzeitfehler mit de rMeldung
"Index auerhalb des gültigen Bereichs"

Warum?

zur weiteren Info:

Tabelle2(Bestellung)
Tabelle3(datenbank)

 

Hallo,

du musst die Namen anpassen, statt Tabelle1 und Tabelle2 muss es bei der Tabelle2 und Tabelle3 sein und sollte dann bei dir etwa so aussehen:

Sheets("Tabelle3").Range("A1") = Sheets("Tabelle2").Range("A3")

 

Hallo Peter,
das hab ich getan und trotzdem kommt der Fehler.

Hab die Namen sofort geändert...ein bisl was vom Programmieren weiß ich *smile*

 

Hallo,

tut mir leid, aber da sind jetzt meine VBA-Kenntnisse am Ende.

Bei mir funktioniert es lt. dem angehängtem Beispiel.

 

Das ist ja der Hammer.

Ich hab den Code so eingegeben
Sheets("Tabelle2").Range("D1") = Sheets("Tabelle3").Range("J1")
und es geht nicht.
Bleibt mit dem Laufzeitfehler bei mir stehen und bei dir funzt es....*argh*

Es heißt ja das 98% aller Fehler vor dem Rechner sitzen....ich werd einfach mein glück versuchen. Irgendwo muss der fehler ja liegen.

Danke für deine Hilfe



*freu* hab den Fehler gefunden...dank deinem Beispiel.

und wie gesagt...98% vor dem Rechner *smile*

Danke nochmal

 

Guten Morgen ramires...

welchen Fehler erhälst Du denn?

Wenn Du von einer Zelle etwas in eine andere kopieren möchtest, bietet sich auch an, eine korrektere Objektaddressierung zu verwenden. Das sieht z.B. so aus...

ThisWorkbook.Worksheets("Tabellenname_1").Cells(1,1).Value = _
ThisWorkbook.Worksheets("Tabellenname_2").Cells(1,1).Value

ThisWorkbook addressiert die Mappe, wo der Code drin ist. So vermeidest Du dass Excel sich eine Tabelle selben Namens aus zwei Mappen suchen muss, wenn vorhanden.

Cells(1,1) ist nichts anderes als Range("A1"), was Du auch verwenden kannst. ( Cells(x,y) = Zelle in Zeile x, Spalte y)

Value ist zwar die Standardeigenschaft von Range() oder Cells(), sollte aber immer angegeben werden. Macht Excel VBA das Leben leichter.

Gruß

 

Hey genial,
vielen Dank. Hilf mir auch weiter.

Der Fehler kam weil ich den Tabellen schon namen gegeben habe *schäm*

Hät ich die Namen eingegeben anstatt tabelle1 hätte es von anfang an geklappt *G*

werde nun das neu gelernte in die Tat umsetzten *smile*

Werde euch auf dem laufendem halten und auch bestimmt noch ein paar fragen stellen *smile*

viele grüße
Ramires

 

Sodele,
wie angekündigt noch eine weitere Frage. Ich hoffe das ihr mir wieder weiterhelfen könnt.

Mir fehlt mal wieder nur der richtige Befehl, sofern diese Aktion überhaupt möglich ist....

aber jetzt zur Frage:
Ist es möglich mittels des .additem befehl auf eine Kombobox zuzugreifen, wenn sie auf einem anderem Tabellenblatt ist als auf dem wo der Code ausgeführt wird.

Kombobox Tabelle 1 soll von Tabelle 2 angesprochen werden (kurzform)

vielen dank für eure Zeit und wissen

viele grüße
Rami


Danke...hat sich schon erledigt...

 

So jetzt brauch ich euch wieder.... *schäm*

Ich hab folgendes vor:

Commandbutton Tabelle1 soll VBA Prozedur von Tabelle2 ausführern.

Ich hab gedacht ich mach eine
"Public sub test" und könnte sie dann direkt mit "call test" ansprechen. Doch leider geht das nicht.
Weiß jemand von euch ob und wie es funktionieren könnte?

danke im vorraus
viele grüße
Rami

 

Erstelle ein neues Modul, daß nicht an ein Tabellenblatt gebunden ist. Pack dort Deine "public Sub irgendwas" rein und Du kannst sie von jedem Tabellenblatt aus aufrufen.

Also grob sowas wie:

Code:

Tabelle1:
private sub button1_click()
    call mach_was(langweiliges)
end sub

Tabelle2:
private sub button2_click()
    call mach_was(aufregendes)
end sub

Modul1:
public sub mach_was(was_denn)
    msgbox "nö, jetzt nicht!"
end sub

Gruß, Michael

 

danke für deine Hilfe.

Werd es sobald mein kleiner im Bett ist versuchen. Mal sehen ob ich das hinbekomm *smile*


Wo und wie mach ich ein neues/eigenes Modul.

Mal sehen wer schneller ist....ich beim rausfinden oder du beim Antworten *smile*

viele grüße
Rami

 

Hallo,

- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden

 

Super,
dankeschön.
Werd mich sofort ranmachen und die neuen Infos verarbeiten *freu*

vielen dank für die freundliche Hilfe

viele grüße

Rami