WindowsXP

VBA Excel

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Ich habe in CheckBox1 folgendes Makro: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("F3").Select Selection.Copy Range("B3").Select ActiveSheet.Paste Range("B3").Select Else Range("G3").Select Selection.Copy Range("B3").Select ActiveSheet.Paste Range("B3").Select End If End Sub Ich möchte mit CheckBox2 bei True Then auf die Tabelle 2 G3 zugreifen. Wie ändert sich das Makro?

Antwort 1 von Saarbauer

Hallo,

müsste so gehen

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then

Range("Tabelle2!G3").Select

End If
End Sub

Da ich nicht weiss was du unter zugreifen verstehst, mal diese Möglichkeit

Gruß

Helmut

Antwort 2 von lanz

Hallo Helmut,

vielen Dank, habs versucht, bekomme jedoch eine Fehlermeldung. Bin noch ein Anfänger. In dem aufgezeigter Beispiel bin ich in einer Excel-Tabelle (Tabelle 1). Wenn das Häckchen gesetzt ist, wird der Wert aus F3 in B3 eingesetzt. Ohne Häckchen wird der Wert (0,00) aus G3 in B3 eingesetzt.
Nun suche die Formel welche mir bei "True Then" den Wert aus der Tabelle2 F3 in Tabelle1 B3 einsetzt. Die selbe Funktion nur Tabellen übergreifend.

Hoffe Du hast das verstanden.

Gruß
Dieter

Antwort 3 von M.O.

Hallo Dieter,

dein Makro für die Checkbox 1 kannst du verkürzen:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
 Range("B3") = Range("F3")
Else
 Range("B3") = Range("G3")
End If

End Sub

Für Checkbox 2 mit Zugriff auf die Tabelle2 würde das Makro so aussehen:

Private Sub CheckBox2_Click()

If CheckBox2.Value = True Then Worksheets("Tabelle1").Range("B3") = Worksheets("Tabelle2").Range("F3")

End Sub

Gruß

M.O.

Antwort 4 von Saarbauer

Hallo,

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("Tabelle1!B3").Value = Range("Tabelle2!F3").Value
Else
Range("Tabelle1!B3").Value = Range("Tabelle2!g3").Value
End If

wenn ich es richtig verstanden habe müsste es so funktionieren

Gruß

Helmut

Antwort 5 von lanz

Hallo M.O.!

Du bist Spitze, das hat auf Anhieb funktioniert.

Danke

Gruß
Dieter