Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / WindowsXP

WindowsXP

Fragevon lanz vom 16.05.2020, 13:55 Options

VBA Excel

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 schreiben

Antwort 1 von Saarbauer vom 16.05.2020, 13:59 Options

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 vom 20.05.2020, 10:42 Options

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. vom 20.05.2020, 11:26 Options

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 vom 20.05.2020, 11:29 Options

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 vom 20.05.2020, 12:04 Options

Hallo M.O.!

Du bist Spitze, das hat auf Anhieb funktioniert.

Danke

Gruß
Dieter

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken