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
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nüchmal KW ändern in Formel mit VBA

Nüchmal KW ändern in Formel mit VBA
08.05.2022 18:24:26
Robert
Hallo Uwe und Yal oder Wissende!
Ich hoffe ihr nehmt es mir zu sehr übel. Aber ich habe Angst in den tiefen des Forums übersehen zu werden. Deshalb ziehe ich einen Teil meines Trade nochmal an den aktuellen Teil. Ich hätte noch mal eine Bitte, da ich es nach zwei Tagen probieren und testen nicht geschafft habe den Code entsprechend fortzuschreiben.
Erstmal Danke für Eure Hilfe. Muss nun noch eine Frage stellen, mit der Spalte B geht es bestens mit Uwe seinem Code. Was muss ich aber ändern um den gleichen Effekt mit den Spalten D,E und F zu erzielen. Stelle nochmal den Link zu Beispieldatei mit ein
Für Eure nochmalige Hilfe wäre ich sehr dankbar.
https://www.herber.de/bbs/user/152899.xlsm
LG Robert

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

Betreff
Datum
Anwender
Anzeige
mit Uwe seinem Code
08.05.2022 20:47:43
RPP63
Mit ohne wär anders?
ROFTL & SCNR
Ralf
AW: mit Uwe seinem Code
08.05.2022 21:31:55
Robert
Hallo Ralf
Wie recht Du doch hast. War echt dumm von mir. Reiche den Code jetzt nach.

Sub Formeländern()
Dim AnzKW As Integer, Schritt As Integer
Dim Z1 As Integer, i As Integer, Arr
ReDim Arr(2)
AnzKW = 5
Schritt = 22
Z1 = 2 'erste Datenzeile
For i = Z1 To AnzKW * Schritt + AnzKW * 2 Step Schritt + 2
With ActiveSheet.Cells(i, 2)
Arr(0) = Split(.Formula, "[")(0)
Arr(1) = .Offset(0, 1)
Arr(2) = Split(.Formula, "KW")(2) ' Trennung bei 2.KW
.Resize(Schritt, 1).Formula = Arr(0) & "[" & Arr(1) & "KW" & Arr(2)
End With
Next
End Sub
Danke für die Mühe.
LG Robert
Anzeige
AW: mit Uwe seinem Code
09.05.2022 10:14:22
Rudi
Hallo,

Sub Formeländern()
Dim AnzKW As Integer, Schritt As Integer
Dim Z1 As Integer, i As Integer, Arr(2)
Dim j
AnzKW = 5
Schritt = 22
Z1 = 2 'erste Datenzeile
For i = Z1 To AnzKW * Schritt + AnzKW * 2 Step Schritt + 2
With ActiveSheet
For Each j In Array(2, 4, 5, 6)
With .Cells(i, j)
Arr(0) = Split(.Formula, "[")(0)
Arr(1) = .Cells(i, 3)
Arr(2) = Split(.Formula, "KW")(2) ' Trennung bei 2.KW
.Resize(Schritt, 1).Formula = Arr(0) & "[" & Arr(1) & "KW" & Arr(2)
End With
Next j
End With
Next
End Sub
Gruß
Rudi
AW: mit Uwe seinem Code
09.05.2022 11:56:30
Herbert_Grom
Hallo Rudi,
in diesem Falle geht es auch mit 

Arr(1) = Cells(i, 3)
!
Servus nach DU
Anzeige
AW: mit Uwe seinem Code
09.05.2022 11:55:43
UweD
Sehe gerade erst den neuen Betrag.
hatte dir gerade weiter unten geantwortet.
Der Code ist aber vergleichbar mit dem hier von Rudi.
LG UweD

308 Forumthreads zu ähnlichen Themen

Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Anzeige
Wenn/Dann Formel
maxx_1985

Hallo liebe Excel-Experten,
haette evtl. jemand eine Idee fuer das folgende Problem.
Wenn in einer Zelle #NA kommt, soll Excel ausgeben: "Manual Input Needed"
=if(A1="#NA",Manual Input Needed",A1) --- diese Formel funktioniert leider nicht.
Ganz lieben Dank Euch im Voraus!
...
25.09.2008 15:44:23
Thread-ID: 1012359
7 Beiträge
3 Fragen Formatierung /WennDann/Formel
thorsten

Die Datei https://www.herber.de/bbs/user/56174.xls wurde aus Datenschutzgründen gelöscht
Hallo,
es geht um folgende 3 Fragen die ich habe:
1) In der Spalte M soll folgende Berechnung vorgenommen werden:
Es soll geprüft werden ob in J oder K eine Zahl eingetragen wurde – es ist...
21.10.2008 19:10:44
Thread-ID: 1018135
2 Beiträge
Anzeige
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Wenn > Dann Formel
William

Hallo Experten
Brauche für diese Tabelle bessere Lösung.
bis jetzt habe ich es nur geschafft wenn ich aller Werte "D" zusammen sortiert habe.
Währe schön wenn das ohne sortieren klappen könnte.
in etwa so:
wenn in Spalte B wert "D" vorkommt, dann in spalten C;Z die Summe erm...
23.11.2008 13:41:15
Thread-ID: 1027076
4 Beiträge
Wenn-Dann-Funktion als Makro
Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...
24.11.2008 16:47:36
Thread-ID: 1027372
11 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 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
13
4
6
1
7
2
9
3
10
4
2
10
21
1
6
1
3
2
5
2
3
1
3
9
11