Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1620to1624
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
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wert dann KW eintragen

Wenn Wert dann KW eintragen
04.05.2018 00:08:04
Marc
Guten Abend alle,
ich habe da mal eine Frage und zwar lese ich werte per makro in ein excel blatt das mehrere reiter hat. in der spalte A steht immer das datum mit uhrzeit. in der spalte B habe ich folgendes eingetragen "=kalenderwoche(A1)" und diesen befehl über mehrere zeilen nach unten gezogen.
Jetzt möchte ich den befehl aber nicht jeden tag aufs neue per hand runterziehen. kann man irgendwie automatisieren das wenn jetzt in Spalte A was drin steht automatisch die Kalenderwoche in Spalte B eingetragen wird? Vielleicht über bedingte formatierung oder gibt es eine formel die werte in eine zelle schreibt wenn in einer anderen ein wert eingetragen ist? Oder kann man das nur über VBA lösen?
Jetzt kommt sicher die Frage wieso ich den Befehl nicht einfach total weit runter ziehe. Das kann ich machen, aber ich habe ein Makro das Werte vergleicht und Zeilen löscht wenn bestimmte bedingungen erfüllt sind. somit werden auch irgendwann die Befehle in Spalte B gelöscht wenn das makro läuft.
Kann mir jemand bitte bei meinem problem weiter helfen?
Gruß Marc

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Wert dann KW eintragen
04.05.2018 06:33:41
Rainer
Hallo Marc,
zeig mal das Makro welches die Werte einliest.
Es ist eigentlich sehr einfach. Du prüfst den Bereich in Spalte A mit Werten. In dein Makro schreibst du dann:
Range("B20").AutoFill Destination:=Range("B20:B25"), Type:=xlFillDefault
Wobei B20 die Musterzelle ist mit der Formel zum "Runterziehen".
Gruß,
Rainer
AW: Wenn Wert dann KW eintragen
04.05.2018 19:50:57
MArc
Danke für deine Hilfe Rainer.
Geht das auch ohne die Formel zur kopieren? Also eine Funktion die wie die Formel ist nur mit dem unterschied das anstatt die Formel in die Zelle zu kopieren gleich den KW Wert rein zu schreiben?
Gruß MArc
Anzeige
AW: Wenn Wert dann KW eintragen
04.05.2018 20:12:02
Werner
Hallo Marc,
meinst du so?
Das ist ein Event-Makro und gehört ins Codemodul des Tabellenblattes auf dem sich der Code auswirken soll.
-Rechtsklick auf den Blattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Sobald in Spalte A etwas in eine Zelle eingegeben wird (Datum) wird in der gleichen Zeile in Spalte B die Kalenderwoche eingetragen. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Not Target Is Nothing Then
If Target.Count = 1 Then
If Target.Value  "" Then
If IsDate(Target) Then
Target.Offset(, 1) = DatePart("ww", Target, vbMonday, vbFirstFourDays)
End If
Else
Target.Offset(, 1) = ""
End If
Else
MsgBox "Keine Mehrfachauswahl zulässig."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End If
End Sub
Gruß Werner
Anzeige
AW: Wenn Wert dann KW eintragen
05.05.2018 00:45:45
MArc
Abend Werner, das makro funzt aber wieso kann ich immer nur einen wert nach der reihe eingeben? wenn ich jetzt mehrere daten kopiere kommt die meldung keine mehrfachauswahl zulässig
AW: Wenn Wert dann KW eintragen
05.05.2018 09:11:50
Rainer
Hallo Marc,
Werner's Makro funktioniert in dieser Form nur mit einzelnen Zellen, das ist Absicht.
Zeig doch mal deine Mappe mit Code, dann machen wir eine Schleife mit 
WorksheetFunction.WeekNum(Datum, 21)
Gruß, Rainer
AW: Wenn Wert dann KW eintragen
05.05.2018 14:31:10
Marc
Hallo Rainer,
die Mappe kann ich leider nicht rausgeben, ich kann nur den Inhalt bzw die Struktur der Zeilen nachbauen und zur Verfügung stellen. In Spalte B steht das Datum und in Spalte C sollte die KW da stehen. Kann ich die Schleife sofern du eine machen solltest nicht einfach mit einem Button abfragen oder am ende meines Code kopieren vor dem End Sub?
BeispielDatei
https://www.herber.de/bbs/user/121456.xlsm
Anzeige
AW: Wenn Wert dann KW eintragen
05.05.2018 14:53:17
Werner
Hallo Marc,
offensichtlich kopierst du ja deine Daten mit einem Makro in die Tabelle, das habe ich völlig übersehen. Du hast jetzt eine Datei hochgeladen, aber ohne dein Makro - das macht nicht wirklich viel Sinn.
Zudem weicht dein Tabellenaufbau von deiner Eingangsbeschreibung ab. Laut Beschreibung Datumswerte in Spalte A in der Beispielmappe jetzt die Datumswerte in Spalte B.
Ich hab dir mal ein Makro geschrieben, das vom Aufbau der Beispielmappe ausgeht. Einfach den Code am Ende deines Makros einfügen.
Dim loLetzte As Long
With Worksheets("Tabelle1") 'Blattname ggf. anpassen
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range(.Cells(2, 3), .Cells(loLetzte, 3)).FormulaLocal = "=KALENDERWOCHE(B2;21)"
.Range(.Cells(2, 3), .Cells(loLetzte, 3)).Value = .Range(.Cells(2, 3), .Cells(loLetzte, 3)). _
Value
End With
Gruß Werner
Anzeige
Vielen Dank
05.05.2018 15:15:46
Marc
So habe ich mir das vorgestellt danke =)
Gerne u. Danke für die Rückmeldung. o.w.T.
05.05.2018 15:37:10
Werner
AW: Wenn Wert dann KW eintragen
06.05.2018 11:35:35
Rainer
Hallo Marc,
ein kleiner Hinweis noch:
.FormulaLocal ist manchmal gemein, weil es nur auf Excel und Windows mit deutscher Sprache funktioniert.
 .Formula = "=WEEKNUM(B2,21)"
Das geht auch und ist flexibler.
Wir haben hier 2 Veränderungen:
Der Funktionsname ist english.
Das "Listentrennzeichen" ist nun ein Komma. (Wie auch im ganzen restlichen VBA)
Das schöne daran ist, dass man als "Listentrennzeichen" das Komma benutzen kann und es trotzdem klappt, obwohl im deutschen Windows da ein Semikolon sein sollte. Bei .FormulaLocal kann auch das Probleme machen, wenn man das Listentrennzeichen in der Systemsteuerung geändert hat.
Gruß,
Rainer
Anzeige
Nochmals Danke
06.05.2018 18:39:26
Marc
Ich habe deinen Änderungsvorschlag übernommen.

341 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
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
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
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1