Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1824to1828
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

Ziel Zelle bestimmen

Ziel Zelle bestimmen
15.04.2021 15:37:14
Thomas
Servus,
ich suche mein Glück mal in diesem Forum.
Ich habe eine einfache Berechnung für einen Wert. Dieser soll dann je nach Planungswoche in eine Gesamtliste eingetragen werden. Zielzelle bestimmt sich aus der jeweils aktuell eingetragenen Planungswoche.
Aktuelle Planungswoche wird in Zelle A4 festgelegt.
Diverse Berechnungen führen dann in Excel zum Ergebnis für die jeweils aktuelle Planungswoche:
Ergebnis in B10
Per Knopfdruck soll dann das Ergebnis in die Wochenliste eingetragen werden.
Liste beginnt ab A15, jeweils Spalte A Kalenderwoche, Spalte B jeweiliges Ergebnis.
Das heißt, wenn bspw. Planungswoche 10 eingetragen wird, soll per Knopfdruck das Ergebnis in B25 (also 15+10) kopiert werden (den Wert, nicht die Formel)
Für Planungswoche 11 dann analog in B26 (also 15+11) usw.
Ist mein erster Eintrag hier im Forum, daher unsicher,ob das mit dem Screenshot so funktioniert, den ich parallel angehangen habe.
Falls jemand eine simple Lösung hat, gerne her damit ;-)
Grüße, Thomas.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ziel Zelle bestimmen
15.04.2021 16:41:06
Werner
Hallo,
du hast doch die Lösung schon selbst geschrieben.
  • 
    Public Sub Eintragen()
    Range("A" & 15 + Range("B4")) = Range("B10")
    End Sub
    

  • Gruß Werner
    AW: Ziel Zelle bestimmen
    15.04.2021 16:46:17
    MRUTOR
    Hallo Thomas,
    den Code in ein allgemeines Modul und dann dem Button zuweisen:
    Sub Woche_suchen()
    Dim ws As Worksheet
    Dim rngWoche As Range
    Dim lngWoche As Long
    Dim letzte As Long
    Set ws = ThisWorkbook.ActiveSheet
    letzte = ws.Cells(Rows.Count, 1).End(xlUp).Row
    lngWoche = CStr(ws.Cells(4, 1))
    Set rngWoche = ws.Range("A15:A" & letzte).Find(lngWoche)
    If Not rngWoche Is Nothing Then
    rngWoche.Offset(0, 1) = ws.Cells(10, 2)
    End If
    End Sub
    

    Gruss Tor
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige