Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
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
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel bis zur letzten genutzten Spalte mit Versetzung einfügen

Formel bis zur letzten genutzten Spalte mit Versetzung einfügen
27.03.2020 15:55:49
Jonas
Hallo zusammen,
ich hab folgendes Problem:
Ich möchte basierend auf Datumseingaben (Format DD.MM.YYYY) in Zeile 7 in der dadrüber liegenden Zeile (6) die entsprechenden Kalenderwochen einfügen.
Da die Datumseingaben dynamisch sind und sich ggf. ändern, sollten die KW dadrüber sich auch anpassen, also immer bis zur letzten Spalte mit Datumseingabe in der Zeile 7.
Den Befehl für die KW-Umwandlung habe ich hier schon mal:
Sheets("Tabelle1").Range("N6:XFD6").Formula = "= ""KW""&  TRUNC((N1-DATE(YEAR(N1-MOD(N1-2,7)+3),1,MOD(N1-2,7)-9))/7)"

Die Range ist hier natürlich falsch, es soll nicht bis XFD laufen, sondern eben bis zur letzten Datumseingabe in der Zeile 7.
Ich hoffe das ist verständlich :).
Grüße
Jonas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel bis zur letzten genutzten Spalte mit Versetzung einfügen
27.03.2020 16:11:11
UweD
Hi
    Dim LC As Integer, Zeile As Integer, SP As Integer
    
    SP = 6 'Spalte N 
    Zeile = 7
    With Sheets("Tabelle1")
        LC = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
        .Cells(Zeile, SP).Offset(-1, 0).Resize(1, LC - SP + 1).Formula = _
            "= ""KW""&  TRUNC((N1-DATE(YEAR(N1-MOD(N1-2,7)+3),1,MOD(N1-2,7)-9))/7)"
    End With

LG UweD
Anzeige
AW: Formel bis zur letzten genutzten Spalte mit Versetzung einfügen
27.03.2020 16:28:17
Jonas
Funktioniert einwandfrei!
Vielen Dank UweD:)
Prima. Danke für die Rückmeldung owT
27.03.2020 17:04:43
UweD
AW: Formel bis zur letzten genutzten Spalte mit Versetzung einfügen
27.03.2020 17:45:16
Jonas
Funktioniert einwandfrei!
Vielen Dank UweD:)
AW: Formel bis zur letzten genutzten Spalte mit Versetzung einfügen
27.03.2020 16:11:46
Jonas
Als Zusatz:
In der obigen KW-Umwandlungsformel sind die Datumseinträge in Zeile 1. Ich muss dazu sagen, dass sie sowohl in Zeile 1, als auch in Zeile 7 sind. Also ist es egal welche von den beiden genommen wird.

306 Forumthreads zu ähnlichen Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Anzeige
FOrmeln einfügen bis zur letzten Zelle
Tobias

Hallo zusammen,
derzeit füge ich folgende Formeln mit einem Makro ein:
Private Sub Formeln_einfügen2() Range("j2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")" Range("j2").Select Selection.AutoFill Destination:=Range("j2:j20000"), Ty...
01.05.2009 16:36:03
Thread-ID: 1072338
3 Beiträge
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Formel auf anderes Blatt mit fortlaufender Spalte
Fred

Man das hört sich wieder mal schlimm an, oder ?
Ich möchte eine Formel aus Zelle A1-Blatt1 in Zelle A1-Blatt2 kopieren.
In A1-Blatt1 steht die Formel: ='Meine Daten'!C13-'Meine Daten'!C13-'Meine Daten'!C13
Nun soll diese Formel in Zelle A1-Blatt2 so kopiert werden dass die Spalte u...
18.12.2009 12:21:34
Thread-ID: 1124855
6 Beiträge
Formel bis Datei-Ende kopieren
Gerhard

Hallo Zusammen,
ich gebe eine Formel in ein Feld ein (noch kein Problem). Nun möchte ich diese Formel in die restlichen
Felder der Spalte kopieren (Anzahl Datensätze ist immer unterschiedlich). Markiere ich nun die Spalte und "sage" einfügen, kopiert er die Formel bis zum Datensatz 6500...
30.03.2010 08:56:46
Thread-ID: 1149267
10 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
2
7
5
3
3
2
2
5
5
9
5
4
13
3
3
4
1
3
8
10
5
4
8
3
7