 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - kgs-ks
Seiten: [1]
1
« am: März 15, 2015, 17:18:32 Nachmittag »
Danke
ja das ohne Namensänderung ist ja möglich, nur habe ich relativ viel zu debuggen und komme mit meinen Versionen völlig durcheinander, wenn ich die nicht konsequent benenne.
ich kann sogar die Datenverknüpfung per code aktualisieren, aber ich kriege aktuelle die Meldung nicht weg
ich suche weiter.
kgs
2
« am: März 13, 2015, 15:33:50 Nachmittag »
Hallo
probiermal die Formel für die "AmpelSpalte"
=WENN(D3=1;WENN(E3>=1,5;"grün";WENN(E3>=1;"gelb";"rot"));WENN(E3>=2;"grün";WENN(E3>=1,5;"gelb";"rot")))
Das könnte man dann noch mit bedingter Formatierung entsprechend farblich kennzeichnen
kgs
3
« am: März 13, 2015, 15:12:51 Nachmittag »
Hallo
da scheint noch etwas Überlegung nötig bzw mindesten eine zusätzliche Spalte
etwa zu "Nacht" noch "Nacht korrigiert", denn erst nachdem die "Nacht" eigegeben wurde kann man sie gegen Summe
aufrechnen
NachtKorrigiert =wenn(Feiertag + Sonntag + Nacht >8 ; 8-(Feiertag+Sonntag); Nacht)
dann würden allerdings noch negative "Nacht-Werte" auftreten wenn Feiertag+Sonntag schon > 8 ist
kgs
4
« am: März 13, 2015, 11:18:15 Vormittag »
Hallo
gibt es hier jemanden, der den Unterschied (bzw den Zusammenhang ) zwischen
ActiveWorkbook.LinkSources
vbProj.References
erklären kann (oder einen Tipp hat, wo man das nachliest)
Hintergrund:
mein Excel 2010, das mit einem selbst entwickelten addIn arbeiten soll = zugriff auf die Addin-Funktionen,
haut mir immer dann, wenn ich einen Versionswechsel am Addin habe (neuer Name) eine Datenverknüpfung mit den Pfaden auf das alte addin rein.
D.h. die Zellen mit addin-Funktionen erhalten den vollständigen Pfad auf das falsche Addin und natürlich wird dann beim Öffnen der betroffenen Arbeitsmappe immer die nicht aktualisierbare Verknüpfung gemeldet. Ich habe aber keine Datenverweise in den Arbeitsblättern sondern nur in den Formeln die Addin-Funktionen aufgerufen. Dabei habe ich doch schon im WB_open Event der jeweiligen Arbeitsmappe die Existenz der alten Referenz abgefragt und per code auf die neue verwiesen.
Es sieht quasi so aus, als würden in dem Moment, in dem ich das alte addin deaktiviere, auch in der nicht geöffneten Arbeitsmappe die Pfade gesetzt.
Mit Dank für Tipps
kgs
5
« am: März 02, 2015, 22:32:17 Nachmittag »
Hallo
mir scheint da kann was nicht stimmen
.......Positionsliste!$R$1:$R$8000<HEUTE()
(einen ganzen range mit einem Wert vergleichen ?
...
uns sowieso ist einiges unklar: ein Name kann ja (theoretisch) mehrfach vorkommen
Vielleicht geht da was mit einem benutzerdefinierten Filter auf die Terminliste R...<= heute() UND S... > heute()...
kgs
6
« am: März 02, 2015, 22:06:11 Nachmittag »
hallo
ich habe da mal als "übung" etwas nachgedacht...
1. ich kenne nur workbook_open
2. es handelt sich wohl um eine active X Combo
3. im Private Sub NNNN_Change() Event könnte der gewählte Wert abgefragt werden (list.index....)
4. ggf der (letzte) Wert in einer Zelle gespeichert werden
5. im workbook_open auch den letzten ausgewählten wert setzen (... selected = true ... so ungfähr...
6. in dem ersten Blatt dann die entsprechenden Zellen als Formeln mit Verweisen unter Verwendung des gewählten Namens konstruieren , etwa ... =INDIREKT(A1&"!A" & ZEILE(A3)) ..... wenn in A! der gewählte Tabellenname steht
.... die weiteren Spalten analog ( berechnet....damit sie durch autoausfüllen erzeugt werden können.)
Vielleicht hilft es
kgs
7
« am: März 02, 2015, 20:38:03 Nachmittag »
Hallo
könnte es sein, dass die Zeile nur funktioniert, wenn der Schutz
bereits aufgehoben ist?
in meinem test war das so:
Public Sub test()
Dim sht As Worksheet
Dim rge As Range
Set rge = Range("$B3:$C5")
Set sht = Sheets("Tabelle1")
With sht
on error resume next
' existiert bereits?
.Protection.AllowEditRanges.Add "testEdit", rge, "pw"
err.clear
.Protection.AllowEditRanges("testEdit").ChangePassword Password:="xx"
End With
End Sub
8
« am: März 02, 2015, 19:38:33 Nachmittag »
für mein addIn zur Unterstützung von hierarchischen IDs (x.y.z......) könnte ich einige Beta-Tester gebrauchen näheres auf mail-anfrage: kgs@kgs-ks.dekgs (Karl Gust-Stiehl)
9
« am: Februar 18, 2015, 14:43:16 Nachmittag »
selbst gelöst: das Problem lag beim Unterschied zwischen "Formula" und "FormulaLocal" Dabei muss man auch das Parameter-Trennzeichen 1. = ";" .........2. = ";" beachten jetzt läuft es in der englischen Version  kgs
10
« am: Februar 18, 2015, 13:25:03 Nachmittag »
Hallo
man kann ein makro schreiben, das die passenden Zeilen kopiert (muss aber immer aufgerufen werden...
man kann auch mit Spezialfiltern arbeiten: die aktualisieren sich aber auch nicht automatisch...
automatische Aktualisierung kann man per makro events erreichen...
ABER:
vielleiht reicht ja ein einziges Blatt in dem man je nach Bedarf (die Zahlungsweise) filtert
kgs
11
« am: Februar 18, 2015, 09:37:46 Vormittag »
Hallo
das ist ja wohl ein Word-Thema (anderes Forum)!
und was mit "Kommentaren" gemeint ist solle erklärt werden.
kgs
12
« am: Februar 18, 2015, 09:30:05 Vormittag »
Hallo
mir ist aufgefallen, dass mehrere Spalten "auf einmal " betroffen sind
Worksheets("Daten EK").Range(Cells(lngLz, 2), Cells(lngLz +2, 46)).Filldown
vielleicht alle Spalten separat mit filldown bearbeiten
kgs
13
« am: Februar 18, 2015, 09:17:10 Vormittag »
Hallo Experten,
ich füge einen Sverweis per code in eine Zelle ein wobei der Suchbereich als definierter Bereichsname verwendet wird...
Leider wird die Formel erst nach Aufruf in der Bearbeitungszeile (<ENTER>) berechnet... woran könnte das liegen?
14
« am: Januar 11, 2015, 17:03:50 Nachmittag »
Hallo
wie wäre es mit der Funktion "Daten","Verknüpfungen Bearbeiten","Aktualisieren"
die externen Links müssen natürlich richtig mit vollständigem Pfad definiert sein
kgs
15
« am: Januar 11, 2015, 15:20:24 Nachmittag »
Zweifellos kann man das mit Excel VBA machen:
z.B. Pseudo-Code (also so nicht lauffähig !, alles etwas einfacher mit vorher definierten Bereichsnamen!)
Nur als Anregung!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...
for each file in FileList ' (vorher definieren oder schleife mit DIR "Path\x.y"
strVeranstaltung = getVerName(file)
dteDatum = file.sheets("abc").cells (intDateRow,intDateColumn) 'passendes sheet definieren
intNameZeile= getFirstRow (file.sheets("abc")) 'erster Name
do while nameZelle(file.sheets("abc").cells(intNameZeile,intNameColumn) <>""
strName = nameZelle
strBegin = beginnZelle
strEnd = endeZelle
set wbk = getWbk(strName) 'öffnen
intFreeRow = getFirstFreeRow (wbk)
strMonthSheet = getShtName(dteDatum,) 'passendes sheet definieren
set sht = wbk.sheets(strMonthSheet)
sht.cells(intFreeRow, intDatumColumn) = strDatum ' oder passendes Format
sht.cells(intFreeRow, intVerColumn) = strVeranstaltung ' oder passendes Format
sht.cells(intFreeRow, intBeginColumn) = strBeginn ' oder passendes Format
sht.cells(intFreeRow, intEndeColumn) = strEnde ' oder passendes Format
wbk.save '....schließen
intNameZeile= intNameZeile +1
loop
next file
...
Viel Glück
kgs
16
« am: Januar 11, 2015, 14:26:33 Nachmittag »
Hallo
nach einem Aufruf von " protect/unprotect " für ein externes Blatt sind im aktiven Blatt
plötzlich die Tasten zum Bewegen der aktiven Zelle (Tab, Links, Rechts.....) gesperrt (Excel 2010)
Ich muss das externe Blatt einmal aktivieren, was ich eigentlich vermeiden wollte
(kann aktuell nur mit einer globalen Variablen eine endloschleife verhindern....)
Hat jemand dazu eine Erkenntnis ?
Code-Auszug:
....
dte = getDate()
If CDate(Format(Now(), "dd.MM.yyyy")) <= dte Then 'testVersion
g_blnTest = True
Set sht = ActiveSheet 'siehe unten
ActiveWorkbook.Sheets("pExCR").Activate 'sollte vermieden werden...
ActiveWorkbook.Sheets("pExCR").Unprotect "myKey"
ActiveWorkbook.Sheets("pExCR").Cells(6, 3) = getMessage("pEx_HID_msg37") & dte
ActiveWorkbook.Sheets("pExCR").Protect "myKey"
' hier entsteht der KEY- Fehler im Ausgangs-Blatt
' pExCR muss mindestens 1 mal aufgerufen werden
'-->zurück zum Ausgangs-Blatt..... aber: das geht nur im DebugMode, sonst Endlosschleife
g_blnAutoSelection = True '--> Endlosschleife vermeiden !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
sht.Activate 'verweist über pEx_L auf pEx_Z (diesen code)!!!!!!!mit "g_blnAutoSelection" abgefangen
Else
.....
17
« am: Dezember 30, 2014, 19:35:32 Nachmittag »
Meine etwas unkomfortable Lösung:
der code der ausgeführt werden soll muss irgendwo in dem workbook gespeichert sein.
dann kann ich verwenden
callByName ( objContainer, Codename, vbMethod, Paramtertlist....)
weil nicht gleich ein Compile-Error entsteht
und ich kann die Existenz des Verweises vorher im WBO_event prüfen und verzweigen.....
dank für den Link
kgs
18
« am: Dezember 29, 2014, 22:11:12 Nachmittag »
Hallo
ich habe eine Anwendung die ein Workbook mit code versorgt u.a im WB_open: dieser code
verweist aber auf einen addin Befehl, d.h. ich bekomme einen compile Error "Sub or function " nicht definiert wenn das addin nicht vorhanden ist.
Wie könnte ich das ordentlich abfangen (ich habe auch schon mit "calByName" experimentiert, verstehe das aber noch nicht ganz...(wie kann ich z.B. direkt auf eine Addin-Funktion verweisen...)
Dankbar für Hinweise
kgs
19
« am: Dezember 13, 2014, 19:41:26 Nachmittag »
Hallo,
Outlook bietet die schöne Möglichkeit per Kontext-Aktion aus einer Aufgabe (mehrere) Termin zu erzeugen
a) Mit Link von Termin zu Aufgabe
b) mit Inhaltskopie und Info zu Aufgabe
in der Aufgabe erscheint dann oben die "Liste der zugehörigen Termine"
Wie könnte ich nun mit VBA diese "relatedApointmentsList" abfragen um z.B. einen Gesamt-Zeit-Aufwand der Aufgabe zu errechnen: pseudoCode
= for Each apt in me.relatetedAppointments ....SumOfDuration = SumOfDuration+ apt.Duration.....next
leider hab ich selbst in englischen Artikeln nichts richtiges gefunden....
Anwendungszenario: ich erzeuge aus den Aufgaben meine aktuellen ToDoTermine und kann später alle Zeiten den jeweiligen Aufgaben zuordnen....(kleine Projektverwaltung)
20
« am: Dezember 09, 2014, 20:16:05 Nachmittag »
Hallo
ein bisschen Texterkennung gefällig...
als Denkanstoß (hat im Test Deine erste Aufgabe erfüllt)
Public Function getUcaseAfterLcase(ByVal txt As String) As String
' Fehlende Trennungen an Großschrift erkennen
Dim txtNew As String
Dim txt2 As String
txtNew = txt
For i = 1 To Len(txt)
txt2 = Mid(txt, i, 2)
If Left(txt2, 1) <> "." And Left(txt2, 1) <> " " And Right(txt2, 1) <> " " Then
If Asc(Right(txt2, 1)) < 90 And Asc(Left(txt2, 1)) > 96 Then
txtNew = Replace(txtNew, txt2, Left(txt2, 1) & ". " & Right(txt2, 1))
End If
End If
Next i
getUcaseAfterLcase = txtNew
End Function
21
« am: Dezember 09, 2014, 19:03:14 Nachmittag »
Also Entwarnung kein Fehler:
Folgefehler aus mehrfach rekursiven Aufrufen von "worksheet-change" mit einer falschen if Bedingung.......
if ...target.value..... wird nicht erkannt, wenn target ein Range > 1,1 ist
22
« am: Dezember 09, 2014, 10:53:26 Vormittag »
Hallo,
ich frage mich was man mit 15 "Bildlaufleisten" macht
bzw. Anwendung genauer definieren: irgendwelche ActivX -Steuerelemente ?
kgs
23
« am: Dezember 09, 2014, 10:45:33 Vormittag »
Bei einem copy-paste -Prozess, in dem eingerückter Text kopiert wird, geht das Format
im "worksheet_change" verloren - d.h. es wird noch im debugger korrekt angezeigt
aber nach "exit sub" ist es weg - Excel-Fehler??????
hat jemand eine Idee? z.B. um es zu fixen... selbst ein explizites Setzen des
indentLevel-wertes im "wsc" ist nicht wirksam....
Seiten: [1]
|
Beiträge anzeigen