Daten per button in tabelle2 schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton1_Click() Dim arrQ, lngC As Long, zz As Long, ss As Long arrQ = Range("B3:D12") With Sheets("Tabelle2") lngC = .Cells(3, .Columns.Count).End(xlToLeft).Column + 1 For zz = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row If Not IsEmpty(.Cells(zz, lngC)) Then ss = ss + 1 ElseIf Not IsEmpty(.Cells(zz, 1)) Then .Cells(zz, lngC) = arrQ(.Cells(zz, 1), ss) End If Next zz End With End Sub

Hi Marco,
zuerst wird das Quellarray arrQ aus Tabelle1 gefüllt. Es hat 10 Zeilen und 3 Spalten.
lngC ist die Nummer der Spalte in Tab2, in die geschrieben werden soll
(Spalte der letzte beschriebene Zelle in Zeile 3, + 1).
zz durchläuft die Zeilennummern von 1 bis zum Ende in Spalte A.
ss ist die Spalte des Quellarrys arrQ, deren Werte gerade eingeteagen werden sollen.
Zu Beginn ist ss = 0.
Wenn in Zeile zz in Spalte lngC etwas steht, muss das eine Überschrift (z. B. y_m3) sein - ansonsten
ist die Spalte ja noch leer. Dann wird ss um 1 erhöht.
Da in 3 Zeilen die Überschriften stehen, kann ss die Werte 1, 2 und 3 annehmen.
ss=1 steht für x, 2 für y, 3 für z.
Eingetragen wird ein Wert, wenn in Zeile zz in Spalte A (.Cells(zz, 1)) etwas steht.
Der Wert .Cells(zz, 1) ist die Nummer einer Messung, also der Zeilenindex des Quellarrays.
In die Zeile zz wird dann arrQ(.Cells(zz, 1), ss) geschrieben.
Reicht dir das als Erklärung aus?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

hallo erich!
vielen dank nochmals für die detailierte beschreibung, ich glaube ich habe es halbwegs verstanden!
ich glaube aber das ich mein problem damit doch nicht bewältigt bekomme.
meine bereiche die ich in tabelle2 schreiben möchte liegen nicht ganz symetrisch angeordnet, wie du in der datei sehen wirst. in tabelle1 ändere ich die auswahl (messung1, messung2......) danach ändern sich die daten hier blau gekennzeichnet. nun möchte ich in tabelle2 die daten je nach festgelegten kriterien (spalte a und b in tabelle2) in die nächste freie spalte (hier zum beispiel gelb) schreiben wobei er als überschrift die auswahlmessung schreibt und darunter die werte der kriterien zu der messung. ich glaube das geht nicht mit deinem makro. gibt es denn nicht irgendwie was, dass man mit einem zellbezug die werte da eintragen kann. also das man den zellbezug in tabelle2 einträgt und man nach dem auslösen des buttons die werte in der spalte einträgt und dann in die nächste leere spalte der tabelle2 springt aber die zellbezüge beibehält. ich wäre echt dankbar wenn du mir dabei noch weiterhelfen könntest!
vielen dank im voraus für deine mühen!
gruß marco
https://www.herber.de/bbs/user/52787.xls

Beliebteste Forumthreads (12 Monate)

Daten per button in tabelle2 schreiben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten per button in tabelle2 schreiben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread