 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 - Beverly
1
« am: August 10, 2013, 12:24:34 Nachmittag »
Hi,
meinst du es so wie im angehängten Beispiel?
Bis später,
Karin
2
« am: Juli 28, 2013, 08:30:55 Vormittag »
Hi,
benutze das Change-Ereignis des Tabellenblattes um die Zellen wieder zu entsperren.
Bis später,
Karin
3
« am: Juli 26, 2013, 11:20:44 Vormittag »
Hi,
hast du den Blattschutz so eingestellt, dass auch gesperrte Zellen ausgewählt (und damit kopiert) werden dürfen? Das müsstest du ändern, denn bei Copy & Paste werden auch die Zellformate mit übertragen.
Bis später,
Karin
4
« am: Juli 22, 2013, 20:14:57 Nachmittag »
Hi Harri,
und wie erkennt Excel, dass ein Wert bereits einmal ausgewählt wurde?
Bis später,
Karin
5
« am: Juli 22, 2013, 20:11:10 Nachmittag »
Hi,
weshalb lädst du nicht die Datei im Forum hoch anstelle eines Bildes?
Bis später,
Karin
6
« am: Mai 15, 2013, 17:27:45 Nachmittag »
Hi,
wenn sich die Tabellen in unterschiedlichen Tabellenättern befinden, dann benutzte 2 Fenster, ordne sie horizontal unterteilt an und stelle den Zoom entsprechend ein.
Bis später,
Karin
7
« am: Mai 14, 2013, 08:57:42 Vormittag »
Hi Leo,
in so einem Fall sollte die Summenprodukt-Funktion weiterhelfen: =SUMMENPRODUKT(($B$2:$B$21=G4)*($C$2:$C$21=H4))
Bis später,
Karin
8
« am: Mai 14, 2013, 08:48:42 Vormittag »
Hi, schau dir mal diesen Beitrag an Zeitstempel - villeicht lässt er sich ja auf deine Bedingungen anwenden. Bis später, Karin
9
« am: März 22, 2013, 10:53:08 Vormittag »
@Officer,
ein Diagramm muss man nicht aktiveren, wen man an ihm per VBA etwas ändern will:
Sub Skalierung()
With ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue)
.MaximumScale = ActiveSheet.Range("H19")
.MinimumScale = 0
End With
End Sub
@Jojobojox,
vielleicht solltest du mal deine Arbeitsmappe hochladen, damit man nachschauen kann, was da nicht funktioniert.
Bis später,
Karin
10
« am: März 11, 2013, 10:24:24 Vormittag »
Hi,
und wo ist das Problem? Der Code macht doch genau das - auch wenn man auf Select und Activate verzichten kann.
Falls deine Tabelle in einer anderen Zeile beginnt, musst du nur + 2 durch den entsprechendne Zeilenversatz ersetzen.
Bis später,
Karin
11
« am: März 06, 2013, 09:54:56 Vormittag »
12
« am: März 03, 2013, 16:55:08 Nachmittag »
Hi Karin,
lade doch deine Arbeitsmappe mal hoch, damit man sich das ansehen kann - Ferndiagnosen sind bei derartigen Problemen fast aussichtslos
Bis später,
Karin
13
« am: März 02, 2013, 17:19:14 Nachmittag »
Hi,
hast du vielleicht VBA-Code in der Mappe, der das beim Öffnen der Arbeitsmappe wieder auf 0° stellt?
Bis später,
Karin
14
« am: Februar 25, 2013, 07:20:04 Vormittag »
Hi Pepo,
Range(Cells(2, 3), Cells(Range("A1").Value, 3)).Value = Range("A2")
Bis später,
Karin
15
« am: Februar 20, 2013, 13:00:43 Nachmittag »
Hi Christiane, schau dir als Anregung mal das Beispiel DropDown abhängig auf meiner HP, Seite "Beispiele o. VBA" an. Bis später, Karin
16
« am: Februar 18, 2013, 21:17:56 Nachmittag »
Hi, Frage an dich: weshalb muss jemand "ungehalten" sein, wenn er eine Frage beantwortet und einen Fakt konstatiert? Ich kenne deinen Computer nicht und weiß deshalb leider auch nicht, weshalb er dich so betitelt - jedenfalls kann ICH daraus nicht erkennen, weshalb der Code bei dir "nicht mitspielt". Folglich kann ich nur raten und die erste Möglichkeit, die in Frage kommt, ist, dass es es falsche Verzeichnis ist, zumal du geschrieben hast: strVerzeichnis = "D:\TEST\" aber darauf hatte mein heiß und innig geliebter PC wieder Mal nur eine Antwort: "Torfkopp". Tut mir Leid, aber ich habe es gewiss nicht nötig, mich von dir hier anmachen zulassen. Bis später, Karin
17
« am: Februar 18, 2013, 13:23:28 Nachmittag »
Hi,
alle Schapes im aktiven Tabelenblatt lassen sich mit folgendem Code auf einen Ritt löschen:
ActiveSheet.Shapes.SelectAll
Selection.Delete
"D:\TEST\" - das ist der Odner einschließlich Laufwerk, aus dem alle doc-Dateien aufgelistet werden sollen - das musst du an deine Bedingugen anpassen.
Ich arbeite mit VBA (Visial Basic for Applications) für Excel - ich weiß also leider nicht wovon du redest.
Bis später,
Karin
18
« am: Februar 15, 2013, 13:12:22 Nachmittag »
Hi,
zur Frage des Umwandelns in Großbuchstaben:
Sub Umwandeln()
Dim lngZeile As Long
For lngZeile = 1 To 20
If Cells(lngZeile, 1) > "" Then Cells(lngZeile, 1) = UCase(Cells(lngZeile, 1))
Next lngZeile
End Sub
Zum Auflisten von Word-Dateien (.doc):
Sub DateienAuflisten()
Dim strVerzeichnis As String
Dim strTyp As String
Dim strDateiname As String
Dim lngZeile As Long
strTyp = "*.doc"
Application.ScreenUpdating = False
strVerzeichnis = "D:\Test\"
strDateiname = Dir(strVerzeichnis & strTyp)
lngZeile = 1
Do While strDateiname <> ""
Cells(lngZeile, 1) = strDateiname
strDateiname = Dir
lngZeile = lngZeile + 1
Loop
Application.ScreenUpdating = True
End Sub
Bis später,
Karin
19
« am: Februar 13, 2013, 15:53:33 Nachmittag »
Hi Marcel,
du solltest die Datenpunktmarker anzeigen, dann funktioinert das ganze besser, da die Mausposition eindeutiger ermittelt werden kann.
Bis später,
Karin
20
« am: Februar 13, 2013, 14:29:33 Nachmittag »
Hi Marcel,
im Anhang eine Lösungsmöglichkeit. Bedingung ist, dass das Diagramm markiert ist - dann werden beim Überfahren der einzelnen Datenpunkte die Inhalte der Zellen in Spalte E angezeigt.
Bis später,
Karin
21
« am: Februar 13, 2013, 12:42:36 Nachmittag »
Hi Marcel,
welche Diagrammart verwendest du - ein Diagrammblatt oder ein eingebettetes Diagrammobjekt? Man kann so etwas per VBA lösen, jedoch ist der Lösungsweg von der Diagrammart ab.
Bis später,
Karin
22
« am: Februar 10, 2013, 10:36:11 Vormittag »
Hi,
im Anhang eine VBA-Lösung.
Bis später
Karin
23
« am: Februar 10, 2013, 09:46:53 Vormittag »
Hi Holger,
eine Möglichkeit siehe die angehängte Arbeitsmappe.
Bis später,
Karin
24
« am: Februar 05, 2013, 10:19:33 Vormittag »
Hi,
=INDIREKT(C3&"!H14")
Bis später,
Karin
25
« am: Februar 04, 2013, 11:58:31 Vormittag »
wenn ich mich nicht irre, müssen dazu aber vorher die Absolut-Bezüge in Relativ-Bezüge umgewandelt werden: also überall das $ entfernen.
Bis später,
Karin
26
« am: Februar 04, 2013, 11:53:09 Vormittag »
Hi,
versuche es mal so: =SUMMENPRODUKT(({1,2;1;0,8;1;1;1,2;1}=1,2)*1)
Bis später,
Karin
27
« am: Februar 02, 2013, 09:37:53 Vormittag »
Hi,
was genau vestehst du unter "die Funktion in ein Makro einbinden"? Soll die Formel per VBA in die Zelle geschrieben werden oder willst du sie in einer benutzerdefinierte Funktion verwenden?
Bis später,
Karin
28
« am: Januar 29, 2013, 09:27:49 Vormittag »
Hi,
verwende eine Hilfsspalte mit der Funktion GROSS() - diese wandelt alles in Großbuchstaben um.
Bis später,
Karin
29
« am: Januar 21, 2013, 20:19:53 Nachmittag »
Hi Marco,
versuche es so (ungetestet):
Sub Speichern()
Dim neuname As String
neuname = Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
Sheets(2).Copy
ActiveSheet.UsedRange.Copy
Range("A1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs neuname
ActiveWorkbook.Close
End Sub
Bis später,
Karin
30
« am: Januar 17, 2013, 11:40:14 Vormittag »
Hi, schau dir mal das Beispiel Gantt-Diagramm auf meiner HP, Seite Diagramme an, vielleicht hilft es dir weiter. Bis später, Karin
|
Beiträge anzeigen