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

bei erreichen einer Zahl Word öffnen

bei erreichen einer Zahl Word öffnen
17.05.2007 18:46:00
manne
Hallo, ich habe ein Problem.
Eine Excelzelle zählt automatisch das Datum, die Tage danach. Bei erreichen der Tage, Zahlen 10, 30, soll selbständig ein Worddokument öffnen welches als Vorlage bereits vorliegt,
z.B. L:\Büro\Mahnung-1-Zahlungserinnerung.doc.
Gibt es da eine Lösung?
mfg
Manne

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bei erreichen einer Zahl Word öffnen
17.05.2007 19:02:00
Josef
Hallo Manne,
der Code gehört ins Modul der Tabelle.
Die Zelle mit dem berechneten Zahlen musst du anpassen! (in meinem Beispiel "A1")
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
Dim wApp As Object
Dim strFile As String

Select Case Range("A1").Value
    Case Is >= 30
        strFile = "L:\Büro\Mahnung-2-Zahlungserinnerung.doc"
    Case Is >= 10
        strFile = "L:\Büro\Mahnung-1-Zahlungserinnerung.doc"
    Case Else
        strFile = ""
End Select

If strFile <> "" Then
    Set wApp = CreateObject("Word.Application")
    
    With wApp
        .Documents.Open strFile
        .Visible = True
    End With
End If

Set wApp = Nothing
End Sub

Gruß Sepp

Anzeige
AW: bei erreichen einer Zahl Word öffnen
17.05.2007 19:27:00
manne
Hallo Sepp,
Danke für die Hilfe es funhtioniert herforragend. Es entwickeln sich aber neue Fragen. kann das so gesteuert werden, dass das entsprechende Dokument nur einmal automatisch geöffnet wird?
Beim öffnen der Excelliste startet dann täglich oder 2 oder 3 tägig je nach dem wie oft nachgesehen wird immer wieder das Worddokument. Der Brief ist ja schon bearbeitet und abgesandt.
mfg
Manne

AW: bei erreichen einer Zahl Word öffnen
17.05.2007 19:32:00
manne
Die Liste wir zum Jahresende ca 500 Zeilen erreichen und in jeder Zeile steht diese eine Zelle. Es soll dann ein heilloses durcheinander vermieden werden.
Kann der Inhalt einer Excelzelle oder auch 2 in ein Textfeld von Word übernommen werden?
mfg

Anzeige
AW: bei erreichen einer Zahl Word öffnen
17.05.2007 19:50:00
Josef
Hallo Manne,
das wird dann aber ein grösseres Projekt.
Du musst halt in eine Zelle einen Marker setzen, wenn das Worddokument geöffnet wird und das Dokument nur öffnen, wenn der Marker fehlt.
Tipps zum Datenexport von Excel nach Word findest du hier: http://mypage.bluewin.ch/reprobst/FrmSet.htm?Index
Gruß Sepp

AW: bei erreichen einer Zahl Word öffnen
17.05.2007 19:49:00
manne
Hallo Sepp,
es taucht eine neue Frage auf. Es soll ja in der Tabelle in jeder Zeile von 1 bis 500 funktionieren und dann nur einmal je Zell und bei 10 und bei 30 und auch noch 45.
gruß
Manne

Anzeige

123 Forumthreads zu ähnlichen Themen

Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 Beiträge
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
Anzeige
2 Spalte in ComboBox anzeigen
ray

Hallo,
ich hab grad das Archiv durchsucht und kann mein Problem leider nciht lösen:
Ich möchte mit nachstehenden Code (aus diesem Forum) nicht nur Spalte 8 sondern Spalte 1 und 8 anzeigen lassen. Hab schon rumprobiert, aber nix geht...
'#### ComboBox mit ALLEN Mänglen füllen START...
07.09.2009 09:35:21
Thread-ID: 1100952
10 Beiträge
Letzten 4 Ziffern raussuchen
Johannes

Hallo zusammen,
ich habe eine Liste die folgendermaßen aussieht:
HF CB6-250 AF - 71210/7V-1128
HF Andruck 71175/7 - 1050 2 x PE
HF CB6-350 AJ - THL - 71210/7V-1024
HF Andruck cb6/cb7 76205/9V-1308 o.Alu
HF CB2-750 AJ - 76240/9V-1052 - 9µ Alu
HF CB4-2000 AJ - 71320/9V...
07.10.2009 13:01:54
Thread-ID: 1107783
12 Beiträge
spalte A und B in userform-textbox1 anzeigen
peter

hallo excels,
ich möchte aus einem tabellenblatt alle einträge aus spalte a un b bei öffnen der userform einlesen lassen.
mein versuch funktioniert leider nicht.

gruss peter
17.04.2002 09:40:16
Thread-ID: 113968
3 Beiträge
Spalteninhalt in anderer abh. von Zelle anzeigen
Zelle

Sorry if der Titel irreführend ist,
Sagen wir, ich hätte folgende Tabelle
| A| B |C
1 |23| Hans |12
2 |12| Peter |34
3 |34| Fritz |23
A und B gehören zusammen.
Abhängig davon, was in C steht, möchte ich daneb...
10.02.2010 11:33:04
Thread-ID: 1137331
6 Beiträge
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 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
3
3
13
1
2
9
11
2
5
3
5
2
8
2
4
2
14
2
1
16
8
3
16
4
1