Hallo VBA-Profis,
hab ein Excel-Makro geschrieben, in dem ich verschiedene Zelleninhalte in Variable einlese. Hier der Ausschnitt aus dem Code:
ActiveCell.Offset(0, 1).Activate Dummy1 = ActiveCell.FormulaR1C1 ActiveCell.Offset(0, 1).Activate Dummy2 =...
so habe folgendes problem.
Range(Cells(2, 13), Cells(1 + p, 16)).Select Selection.Copy WordObj.Visible = True WordObj.Selection.Paste Application.CutCopyMode = False
so lese ich meine tabellen teile von excel nach word aus. klappt eigentlich auch super, nur...
Was sind eingebetette Objekte?
Ich habe folgendes Problem:
http://support.microsoft.com/?scid=kb;de;329410
Erklärung meiner Excel-Datei:
- ich starte ExcelVorlage.xlt
- ein internes Generator-Modul generiert 12 Worksheets (für jeden Monat)
- es werden ein paar Zellen b...
Hallo Herr Ehrensberger,
sie hatten mir bereits bei dem Vergleich von Tabellenblättern vor ca. 2 Wochen geholfen. Könnten sie mir bitte den Code, der die folgenden Probleme löst posten. Vielen Dank.
2 kleine Probleme tauchen dabei auf:
1. Bei dem Vergleich wird die A1 immer rot auße...
Hallo,
kann man den Tooltip (Diagrammtipp) für Datenpunkte in Excel-Charts individuell anpassen? Ich habe nur die Möglichkeit gefunden den Name und/oder den Wert des jeweiligen Datenpunkts anzeigen zu lassen. Ich würde aber gerne weitere/andere Infos zum Datenpunkt mit anzeigen lassen. ...
Hallo Leute,
ich habe ein Problem mit 2 Listen. 1) Name, Wohnort, Wunschwohnort (5 Einträge) 2) Name, Wunschwohnort (2 Einträge)
Die eine Tabelle(2)bildet eine Schnittmenge von der einen Tabelle(1). Beide Tabellen sind zufällig sortiert und müßen unsortiert bleiben(!), beide e...
Hallo,
Folgendes Problem: Habe ein Arbeitsblatt mit einer Spalte D, die verschiedene Umsatzwerte enthält. Die Werte beginnen bei D5 bis D44. Nicht alle Zellen haben einen Wert. Diese Zellen sind also leer. Ich möchte nun alle leeren Zellen nach-einander, mit Hilfe einer InputBox und einen U...
Ich bekomme immer wieder ein Fehler in dieser Zeile:
If shp.FormControlType = 0 Then
Leider weiss ich nicht wie ich damit umgehen muss?!
Danke
Sub loescheButton(spalte As Integer)
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.FormControlType = 0 Then
If shp.TopLeft...
Hallo Spezialisten,
ich möchte Euro-Werte (Ganze Zahlen) in Tausend-Euro-Werte per VBA umrechnen. Dabei ergeben sich Rundungsprobleme. VBA rundet anders als die übliche Funktion "Runden(Zahl;Anzahl_Stellen)".
(Auszug aus dem Code)
...
For Each cell In Selection
cell.Valu...
Hallo Wissende,
folgender Code schliesst Excel wenn schon eine Excel-Instanz besteht.
Man sieht dann den Desktop von Windows.
Wie kann ich es erreichen dass zur ersten Instanz "gesprungen" wird?
Die untenstehende Funktion ExcelInstanzen liefert mir die Anzahl der Instanzen und m...
Hallo Leute,
ich habe hier eine Kundentabelle die folgende Attribute enthält: Vorname|Nachname|e-mail|Tele... Nun kommen einige Personen bis zu 2 x vor. Kann ich irgendwie diese Duplikate rausbringen? Ich hatte da an so was gedacht: Wenn Nachname und e-mail gleich und 2x vorkommen dann i...
Leider funktionierts noch nicht. Finde aber den Fehler nicht!
Fehlermeldung: Laufzeitfehler 1004
Auf die Datei konnte nicht zugegriffen werde.
Sub Übergabe()
' Übergabe Makro
' Makro am 14.02.2005 von Fuger aufgezeichnet
ActiveWorkbook.Save
Selection.AutoFilter Field:=10, Criteria1:="&...
Hallo,
anbei meine Bsp-Mappe, bei der ich nicht weiter komme.
Ich will erreichen, daß bei "Auswertung" in jeder Spalte die entsprechende Summe aus Spalte G steht.
Hier muß also dann z.B. stehen: Name Fritz T 2
Mit Summe wenn komme ich nicht hin
Wer hat ne Lösung?
http...
Hallo an Alle,
habe noch ein weiteres Problem. Wie kann ich die Seite einrichten, dass beim schließen der Datei Spalte G H und I immer ausgeblendet werden. Ich habe es nun mit Eurer Hilfe so weit geschaft, dass ich diese Spalten über einen Button mit Passwort ein- und ausblenden kann. Jetzt...
Hallo Profis!
Ich möchte über ein Makro in auto open alle Symbolleisten ausblenden, die Arbeitsblatt -Menüleiste ausblenden und das X zum schließen von Excel verschwinden lassen.
Auf dem Wooksheet soll dann ein Icon oder Schaltfläche kreiert werden, über das man die Datei ohne speichern...
Hallo,
ich soll in einer Datei die Zellen der erledigten Vorgänge "durchXen".
Allerdings nicht einfach mit dem Buchstaben X, sondern die Zellen sollen in der Gesamtheit Diagonal gekennzeichnet sein.
In der Praxis sieht das so aus, die gesamte Zelle ist umrahmt und diagonal gekennzeichne...
Hallo,
möchte via VBA Zellinhalte aus einer Datei in eine andere kopieren, dabei sollen die Formatierungen in der Zieldatei nicht überschrieben werden.
In der Ursprungsdatei wird in Zelle B4 das Datum abgegriffen, um in der Zieldatei die Zeile zum Einfügen zu ermitteln (erste Spalte der Zie...
Hallo,
gibt es bei Excel eigentlich so was ähnliches wie im Internet Explorer "Aktualisieren" ???
Ich habe Formeln hinterlegt für Arbeitsmappen, die erst später angelegt werden. Da diese Mappen noch fehlen, zeigt es mir den Fehler "#Bezug" an.
Sobald die Mappe angelegt ist, bleibt der...
Folgender Code läuft auf auf meinem, aber z. T. nicht auf anderen Rechnern:
Sub AC_Menue_Einfuegen() Dim Menue As CommandBar Dim ZuMenue As CommandBarControl Dim Menuebefehl As CommandBarControl Dim i, Anz As Integer
Anz = Application.CommandBars(1).Controls.Coun...
Hallo Profis
In einem Modul der aktuellen Arbeitsmappe steht folgende Funktion:
Function RangeWidth() As Single
RangeWidth = Range("A1").Width
End Function
Ich schreibe nun in beliebige Zelle "=RangeWidth()" und drücke ENTER , womit wie gewünscht die Breite der ersten Spalte angez...
hallo zusammen, hab folgendes problem: die formel
ARCTAN(a/b)*180/PI()
a=Gegenkathete b=Ankathete
liefert mir eine zahl als resultat (zahl auf dem einheitskreis nehm ich mal an...) ich will aber nicht diese zahl, sondern den winkel in gradmass! was muss ich eingeben? ...
Hallo,
ich habe ein Problem mit nachfolgenden Code.
Sub bereich_redimensionieren()
ActiveWorkbook.Names.Add Name:="DB", RefersToR1C1:=Range("A1").CurrentRegion
ende:
MsgBox ("Bereich wurde redimensioniert!")
End Sub
Diesen Code lasse ich ausführen, wenn ich in Tabelle("Liste") bin...
Hallo zusammen,
ich möchte eine Exceldatei erstellen in der beim Öffnen nur ein "Inhaltsblatt" angezeigt wird, z.B. so:
1. Einleitung 2. Inhalt 3. Schluss
Insgesamt besteht die EcaelDatei jedoch aus 4 Blättern (Inhaltsverzeichnis; 1. Einleitung, 2. Inhalt, 3. Schluss).
We...
Wenn ich dieses Makro ausführe, dann verschwindet in einer anderen Spalte mehrere Dropdown-menues?! ich weiss nicht warum?!
Sub löschen ()
On Error Resume Next
Dim z As Integer
For z = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(z).TopLeftCell.Column = 20 Then
Rows(ActiveSheet.Shap...
Hallo zusammen.
Ich hab einen VBA-Code, der in einem Excel-Tabellenblatt viele Formeln einsetzt. Diese Formeln sind teilweise sehr groß und greifen über INDIREKT auf andere Zellen zu. Mit Hilfe von Application.ScreenUpdating = False habe ich die Berechnung schon etwas beschleunigt. Leider b...
Hallo
D1 : {=WENN(ISTNV(INDEX(C1:C1000;VERGLEICH("x"&"y";A1:A1000&B1:B1000;0)));INDEX(Tabelle2!C1:C1000;VERGLEICH("x"&"y";Tabelle2!A1:A1000&Tabelle2!B1:B1000;0));INDEX(C1:C1000;VERGLEICH("x"&"y";A1:A1000&B1:B1000;0)))}
Kann man in dieser Formel auch das Ergebnis...
Hi,
habe folgendes Makro:
Sub blatt_vorhanden_prüfen()
Dim Ws As Worksheet, wb As Workbook, strBook As Variant
Dim bolExist As Boolean, n As Integer, strWb As String
Dim strSheet As String
'On Error Resume Next
If TextBox1.Value = "A." Or TextBox1.Value = "" Then Exit Sub
strSheet = Te...
Hallo zusammen,
ich möchte gerne eine Datei mit VBA schützen und zwar insofern:
Ich möchte gern mit VBA mit dem Auto_open Ereignis den Pfad auslesen und in eine Zelle schreiben lassen (wenn das überhaupt nötig ist) und dann mit dem in VBA schon eingegebenen Pfad vergleichen lassen. ...
Hallo zusammen, Anfänger braucht Hilfe.
Ich möchte über eine Userform die Schulferien eingeben. z.B. Osterferien Datumsanfang - Datumsende Für jeden Ferientag soll nun in der entsprechenden Monatstabelle in Zeile 50 eine 1 hinterlegt werden. Kann mir jemand für dieses Problem auf...
Hallo,
ich weiß dass es eine einfache Frage ist, nur bekomme ich es leider ohne Hilfe nicht hin. Ich habe eine Liste von unterschiedlichen Werten. Manche sind mehrfach vorhanden. Ich möchte jetzt wir anzeigen lassen, wieviel von einem Wert in dieser Liste stehen. Mit Zählenwenn komme ich...
Hallo nochmal,
ihr habt mir schon gut weitergeholfen.
Dann wisst Ihr auch das:
Daten (Text und Zahlen) in zwei Listen zu einer konsolidieren.
Wie geht das (ohne großen Programmieraufwand, wenns geht)
https://www.herber.de/bbs/user/18058.xls
Danke.
Hallo Leute,
bei dieser Tabelle, muß ich anhand der weitern daten sprich, tab. winznr u. weingut, mittels sverweis in die leere oben angeführte tabelle name des weingutes die lücken füllen, ich hänge hierbei könnt ihr mir anbei helfen?
danach muss ich die tabelle in ein neues datenbla...
Hallo!!! Ich habe eine Tabelle, bei der jede Zeile einem Fall zugeordnet ist. (Ich hab die Tabelle angehängt). Mein Problem: Ich muß die einzelnen Werte einander zuordnen. Ich brauch also eine Tabelle, in der age neben ba_ver steht. Wie kann ich eine Zeile in Excel teilen und unterein...
bei dieser Tabelle, muß ich anhand der weitern daten sprich, tab. winznr u. weingut, mittels sverweis in die leere oben angeführte tabelle name des weingutes die lücken füllen, ich hänge hierbei könnt ihr mir anbei helfen?
danach muss ich die tabelle in ein neues datenblatt kopieren und mi...
Hallo Wissende,
wohl wieder Ende der Fahnenstange bei mir bzw. zurückrutschen zu den Basics der Definitionen :-(
Was will der Editor da von mir? Im Internet steht das oft genauso, warum meckert der Compiler da an der im Remark gezeigten Stelle?
Sub kopieren_test()
Dim MyData As DataObj...
Hallo,
ich habe ein Problem mir GetOpenFilename(...) bei der Multi-Selektierung. Normalerweise (und das hat mein Excel 2000 auch meist getan) erhalte ich ein Array zurück. Seit neuestem kriege ich aber, trotz mehrfach selektierter Dateien einen String mit nur der ersten Datei zurück. Ich ha...
Hi zusammen,
ich habe ein Problem: Habe ein Makro geschrieben welche ohne Befehlschaltfläche funktioniert. Mit dem Makro werden viele Daten zwischen Tabellen hin und her kopiert. Ich will das Makro nun über ein Steuerelement starten. Das funktioniert aber seltsamerweise nicht. Liegt es dara...
Hallo,
danke an Ransi und Boris. Ihr wart schnell und gut. Eine Frage hätte ich da aber noch.
wie kann ich jetzt meine Liste durchzählen lassen, wieviel unterschiedliche Argumente darin sind, ohne die doppelten mitzuzählen?
Gruß
Nico
Hallo Ihr Alle!
Habe ein Problem mit einer Formel:
Ich möchte ganz gerne die Summe von Spalte F bilden, wenn in Spalte M ne 1 und in Spalte G ne 16% steht. Meine Formel funzt net. Kann mir jemand sagen warum?
SUMMENPRODUKT((M5:M1000="1")*(G5:G1000="16%")*F5:F1000)
Vielen Dank,
Hallo Forum,
ich habe für eine untere Fussball-Spielklasse eine Tabelle erstellt,in der ich u.a. auch die Begegnungen von Hand eingeben muss.Um Fehler (speziell Doppeleingaben) zu vermeiden,suche ich die Möglichkeit eine entsprechende Meldung einzubauen.
Zur Verdeutlichung:
https://...
Hallo!
Ich wollte in meiner Tabelle die Leisten A, B, C... und 1, 2, 3 ausblenden. Nun habe ich hier im Forum ein VBA-Skript gefunden, das recht vielversprechend aussah. Ich habe mir einen Teil davon eingefügt und gestartet. Nun sind aber meine Leisten Datei, Bearbeiten etc. und die Symbol...
Hallo, kann ich die Funktion "Alt + Eingabe" auch automatisieren, so dass ich nicht jedes Mal in einer Zelle diese Tastenkombination drücken muss, um eine neue Zeile zu beginnen?
Für die Bemühungen bereits vielen Dank im Voraus!!!
Siggi
Hallo Leute...
Ich möchte ein Makro entwickeln, welches die Funktion hat, die ich in dieser Mappe beschreibe.
https://www.herber.de/bbs/user/18066.xls
Ich habs schon mit zwei Schleifen in allen möglichen Formen versucht, aber ich kriegs einfach nicht hin. Wahrscheinlich ist es garni...
Hallo, wahrscheinlich eine ganz einfache Frage, aber mir fehlen sogar die Worte um danach im Forum zu suchen: In einer Tabelle befinden sich zwei Befehlsschaltflächen (Aktualisierung von Webseite abrufen) Manchmal wird diese Tabelle so geöffnet dass der Mauszeiger ein dickes Kreuz darstel...
Hallo zusammen!
ich war vorhin schonmal hier und hab ein Makro bekommen, hab das auch so umgesetzt, aber er löscht mir die Sheets trotzdem obwohl der Dateiname und Pfad genau gleich ist :-( Aber warum? Kann mir jemand helfen? Hab ich den Pfad falsch eingegeben? Im Code steht die 1 Zeile kom...
Hallo zusammen kann mir jemand einen Tipp geben, wie man schnell grosse Datenmengen (z.B. Spalten D und E je 33000 Zeilen) schnell markieren kann? Es gibt vielleicht eine Tastenkombination, die ich noch nicht kenne. Vielen Dank für jeden Tipp. Peter
Hi,
wie kann ich folgendem Makro sagen, dass es das gefundene Blatt auswählen soll?
Sub blatt_vorhanden_prüfen()
Dim Ws As Worksheet, wb As Workbook, strBook As Variant
Dim bolExist As Boolean, n As Integer, strWb As String
Dim strSheet As String
'On Error Resume Next
If UserForm2.Text...
Hi,
ich möchte festlegen, dass sich Änderungen an den zugrunde liegenden Zellen auf das Steuerelement auswirken. Die Position des Steuerelements soll sich ändern, wenn sich die Größe der zugrunde liegenden Zellen ändert. Das Steuerelement (Kontrollkästchen) soll stets zentriert in der Zelle...
Hallo zusammen,
Hab wieder mal ein Problem. 1. Ich möchte gerne Dateien aus einem Ordner(Beispiel:C:\Temp\*.txt) in einen andern verschieben das alles soll über einen Cmd Button gehen.Wenn ich nun auf den Button klicke müßte als erstes eine Ordnerauswahl kommen wobei ich ein Oberverzeic...
Hallo,
gibt es eine Möglichkeit, einen vorgefertigten Kalender (ein Makro?) ins Excel zu bekommen, sodass ich dort Termine u.ä. eintragen kann?
Gruss, AxRet
Hallo zusammen,
ich würde gerne eine Fläche zwischen 2 Kurven farblich hervorheben. Es wäre klasse, falls mir da jemand einen Tip geben könnte. Vielen Dank und Grüße Martin
Hallo Excelspezialisten
Habe folgendes Makro:
Sub Blatt_copieren()
Sheets("2").Select
Sheets("2").Copy Before:=sheets(3)
End Sub
Auf dem Tabellenblatt "Felder" steht in Zelle B 3 eine Nr. (z.B. 4), nach dieser Nr. soll das neue Blatt benannt werden.
hoffe auf Hilfe
Dank...
Hallo Zusammen,
Eigentlich nichts exotisches, aber in der Recherche nicht gefunden. Sehr,sehr viele Beiträge. Ein Treffer zu landen ist schon Glücksache:)
In der Spalte "D" stehen verschiedene Werte. Nun möchte ich überprüfen ob der Wert meiner Variabel dort vorkommt.
Sub Wert()
x...
Hey zusammen,
auch simpelste Funktionen, die ich eins-zu-eins aus Lehrbüchern entnehme, resultieren in einem "Name"-Fehlwert, woran kann das liegen.
Beispiel:
Function v_average(km As Double, zeit As Double) As Double
Dim inthour As Integer
Dim dblmin As Double
inthour = Fix(zeit)...
Hallo
ich suche eine Möglichkeit per VBA alle ausgeblendeten Tabellenblätter einzublenden ohne dass man deren Namen oder die Anzahl der Verborgenen Tabellen kennt?
Vielen Dank für eure Hilfe
Michael
Hej Loki,
(betrifft https://www.herber.de/forum/archiv/564to568/t565384.htm) ich habe noch eine Weile über dein Problem nachgedacht, bin aber aus folgenden Gründen (die ich deiner Datei entnehme) zu keinem brauchbaren Ergebnis gekommen: Deine 3 Suchkriterien werden (? Zufall ?) in kei...
Hi,
ich suche eine Excel Datei, die das "FIFA World Ranking" berechnet um mir daraus meine eigene kleine Liga zu basteln. Weiß einer wie das die genauen Berechnungen sind? Das in das Ranking eine ganze Menge von Faktoren Einfluss haben, hab ich mitlwerweile auch schon rausgefunden, nur weiß...