Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1676to1680
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenüberschrift anhand wert in Bereich auslesen

Spaltenüberschrift anhand wert in Bereich auslesen
20.02.2019 09:48:39
ehinzel
Hallo Zusammen,
ich habe folgendes Problem:
Tabelle mit mehreren Spalten, die mit z. B. Äpfel, Birnen, Kirschen benannt sind.
In der ersten Spalte habe ich aufsteigende Datumswerte.Dann eine Leerspalte und dann die Spalten Äpfel, Birnen etc.
Wenn nun im Tabellenbereich bei einem bestimmten Datum ein Eintrag z. B. in der Spalte Äpfel ein Wert größer 0 eingetragen wird, soll per VBA die Spaltenüberschrift ausgelesen werden und in die entsprechende Zeile des Eintrags in die Leerspalte nach dem Datum eingefügt werden. Pro Zeile gibt es nur einen Eintrag, also nur bei Äpfel oder Birnen oder Kirschen.
Ist dies mit VBA möglich? Eine Lösung mit Excelformeln hilft mir nicht, da der Tabellenbereich immer wieder überschrieben wird.
ist das möglich? Wenn ja wie? Habe leider keine Ahnung von VBA

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenüberschrift anhand wert in Bereich
20.02.2019 10:22:35
ede
Hallo,
anbei mal ein Beispiel für den Bereich C2:E10.. 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C2:E10")) Is Nothing Then
Cells(Target.Row, 2) = Cells(1, Target.Column)
End If
End Sub

AW: Spaltenüberschrift anhand wert in Bereich
20.02.2019 17:51:37
ehinzel
Hallo Ede und Bernd,
herzlichen Dank für die schnelle Antwort und Lösungsansätze.
@EDE: Sorry, ich habe das leider nicht genau beschrieben. Der komplette Tabellenbereich wird aus einer
anderen Datei in eine andere Arbeitsmappe, in der die "Makros" bereits enthalten sind,kopiert, dass heißt die Eintragungen (Werte) sind bereits in der einkopierten Tabelle und werden nicht mehr eingetragen oder verändert. Ich müsste über z. B eine Schaltfläche die Spaltenüberschriften anhand eingetragener Werte in die betreffende Zelle der entsprechenden Zeile auslesen.
Deine Lösung war perfekt auf meine falsche Interpretation ausgelegt.
Ich hoffe ich habe es diesmal besser formuiert.
Viele Grüße
ehinzel
Anzeige
AW: Spaltenüberschrift anhand wert in Bereich
21.02.2019 19:46:23
Ehinzel
Hallo Ede und Bernd,
Herzlichen Dank für die schnelle Beantwortung
Besteht auch die Möglichkeit das Auslesen der Spaltenköpfe über eine Schaltflächen auszulösen?
Werte sind bereits im tabellenbereich und die Spaltenüberschriften müssten dann durch Aktivieren der Schaltflächen in die entsprechende Zelle der Zeile geschrieben werden.
Wäre toll wenn es dafür eine Lösung gibt.
Besten Dank im Voraus.
Ehinzel
Spaltenüberschrift anhand wert in Bereich auslesen
20.02.2019 10:26:37
Bernd
Servus ehinzel,
rechtsklick auf das Tabellenblatt => Code anzeigen und dort folgendes reinkopieren: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then       ' Spalte C = Äpfel
Target.Offset(, -1).Value = Range("C1").Value
ElseIf Target.Column = 4 Then   ' Spalte D = Birnen
Target.Offset(, -2).Value = Range("D1").Value
ElseIf Target.Column = 5 Then   ' Spalte E = Kirschen
Target.Offset(, -3).Value = Range("E1").Value
End If
End Sub
Grüße, Bernd
Anzeige

304 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3