Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code gesucht

VBA-Code gesucht
06.06.2019 23:47:56
Onkel
Hallo Freunde,
ich suche den VBA-Code.
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann
Worksheets("Werte").Range("A1") = Worksheets("Berechnung").Range("B57")
Worksheets("Werte").Range("B1") = Worksheets("Berechnung").Range("C57")
Worksheets("Werte").Range("C1") = Worksheets("Berechnung").Range("D57")
Worksheets("Werte").Range("D1") = Worksheets("Berechnung").Range("E57")
Worksheets("Werte").Range("F1") = Worksheets("Berechnung").Range("F57")
Worksheets("Werte").Range("G1") = Worksheets("Berechnung").Range("G57")
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =2, dann
Worksheets("Werte").Range("A2") = Worksheets("Berechnung").Range("B57")
Worksheets("Werte").Range("B2") = Worksheets("Berechnung").Range("C57")
...
...
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =12, dann
Worksheets("Werte").Range("A12") = Worksheets("Berechnung").Range("B57")
...
Worksheets("Werte").Range("G12") = Worksheets("Berechnung").Range("G57")
Vielen Dank Uli

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code gesucht
07.06.2019 00:04:06
Piet
Hallo Uli
bitte schau mal genau hin, du hast die Lösung doch selbst vorgegeben! Man muss sie nur sehen ....
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann - aendere es wie unten im Beispiel Code:
Die genaue Spalte + Zeile musst du bitte selbst angeben. z.B. .Range("BLM3") = 3
Sub Makro1()
'    Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann
If Worksheets("Berechnung").Range("BLM..") = 1 Then
End If
If Worksheets("Berechnung").Range("BLM..") = 2 Then
End If
If Worksheets("Berechnung").Range("BLM..") = 3 Then
End If
End Sub

Anzeige
AW: VBA-Code gesucht
07.06.2019 05:48:39
Martin
Hallo Uli,
mein Lösungsvorschlage sieht so aus:
Sub Beispiel()
Dim i As Integer, j As Integer
With Worksheets("Berechnung")
j = .Range("B_LM").Value
For i = 1 To 6
Worksheets("Werte").Range("A1").Cells(1, IIf(i
Hoffentlich ist dir bei deiner Beschreibung kein Fehler unterlaufen, denn laut deiner Beschreibung wird kein Wert aus Spalte E übernommen.
Viele Grüße
Martin
AW: VBA-Code gesucht
07.06.2019 22:30:31
Onkel
@ Piet Vielen Dank für Deine Antwort. Sie nimmt aber eine Menge Platz ein und ich suche etwas kürzeres.
Trotzdem Danke für Deine Hilfsbereitschaft.
@ Martin
Du hast recht und es sind Fehler drin. Hier noch einmal die korrigierte Beschreibung.
Ziel: Ich muß Monatswerte kummulieren.In der Zelle Worksheets("Berechnung").("B_LM")steht der Monat. Januar = 1 usw.
Mein Gedanke ist: kopiere die Zellen Worksheets("Berechnung")."A45",B_BL,"G34","G45","G46","G47","G48")für
Januar = 1 in die Worksheets("Werte").Zeile 1
Februar = 2, dann Worksheets("Werte").Zeile 2
März = 3, dann Worksheets("Werte").Zeile 3
Die Zellen, die ich ursprünglich genannt hatte, bekommen später die kummulierten Werte.
Viele Grüße Uli
Anzeige
AW: VBA-Code gesucht
08.06.2019 22:39:36
Onkel
Ich habe den Code jetzt geändert und es funktioniert. 
Sub Beispiel()
Dim i As Integer, j As Integer
j = Worksheets("Berechnung").Range("B_LM").Value
Worksheets("Werte").Range("A" & j) = Worksheets("Berechnung").Range("StBr")
Worksheets("Werte").Range("B" & j) = Worksheets("Berechnung").Range("B_BL")
Worksheets("Werte").Range("C" & j) = Worksheets("Berechnung").Range("G34")
Worksheets("Werte").Range("D" & j) = Worksheets("Berechnung").Range("G47") + Range("G49")
Worksheets("Werte").Range("E" & j) = Worksheets("Berechnung").Range("G45")
Worksheets("Werte").Range("F" & j) = Worksheets("Berechnung").Range("G46")
Worksheets("Werte").Range("G" & j) = Worksheets("Berechnung").Range("G48")
End Sub
Viele Grüße
Uli
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige