Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA probleme beim kopieren

VBA probleme beim kopieren
03.02.2014 20:08:23
Max
Hallo Leute vielleicht kann mir einer von euch helfen.
Die Werte aus den beiden Zellen ( N4 und O4 ) stehen auf dem Tabellenreiter StücklisteZeichnen.
Jetzt sollen die beiden Zellen auf die nächste Seite Tabellenreiter (TabelleZeichen).
Das ganze soll fortlaufend geschrieben werden.
Bis zu dem fett markierten Bereich klappt alles, danach läuft nix mehr
HILFE ;)
Private Sub CommandButton1_Click()
Dim Z As String
Dim Koordinate As String
If CheckBox1 Then
Z = "1"
ElseIf CheckBox2 Then
Z = "2"
ElseIf CheckBox3 Then
Z = "3"
ElseIf CheckBox4 Then
Z = "4"
ElseIf CheckBox5 Then
Z = "5"
ElseIf CheckBox6 Then
Z = "6"
ElseIf CheckBox7 Then
Z = "7"
ElseIf CheckBox8 Then
Z = "8"
Else
Z = ""
End If
Sheets("StücklisteZeichnen").Range("M4").Value = Z
'Koordinate = Range("N4:O4").Value
With Sheets("StücklisteZeichnen")
.Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(1, 1).Value = Sheets("TabelleZeichnen") _
.Range("A2:A3").Value
End With
Me.Hide
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA probleme beim kopieren
03.02.2014 21:38:27
fcs
Hallo Max,
Elementen, denen Werte zugewiesen werden sollen stehen immer links vom Gleichheitszeichen, die Werte immer rechts.
Hier muss man noch beachten, dass die Zellbereiche links und rechts vom Gleichheitszeichen gleich groß sind.
Gruß
Franz
Private Sub CommandButton1_Click()
Dim Z As String
Dim Koordinate As Variant
If CheckBox1 Then
Z = "1"
ElseIf CheckBox2 Then
Z = "2"
ElseIf CheckBox3 Then
Z = "3"
ElseIf CheckBox4 Then
Z = "4"
ElseIf CheckBox5 Then
Z = "5"
ElseIf CheckBox6 Then
Z = "6"
ElseIf CheckBox7 Then
Z = "7"
ElseIf CheckBox8 Then
Z = "8"
Else
Z = ""
End If
Sheets("StücklisteZeichnen").Range("M4").Value = Z
'Koordinate = Sheets("StücklisteZeichnen").Range("N4:O4").Value    ' Zuweisung von Werten aus _
mehreren Zellen funktioniert nur mit als Variant deklarierten Variablen.
With Sheets("TabelleZeichnen")
.Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(1, 2).Value = _
Sheets("StücklisteZeichnen").Range("N4:O4").Value
End With
Me.Hide
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige