VBA – die besten Beiträge

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

Hallo zusammen. Ich habe eine Tabelle mit mehreren Blättern und möchte mittels Makro die Tabellenblätter umbennen. Problematisch ist nur die Variabilität der Daten.

Beispiel

1. ich befinde mich in der Tabelle1, wo auch die Makro-Schaltfläche ist
2. in Tabelle2, Zelle A1 steht welche Tabelle (Tabelle4) einen neuen Namen erhalten soll
3. in Tabelle3, Zelle A1 steht der Namen den die Tabelle bekommen soll (Test)

Ich finde leider keine Lösung wie ich mit VBA ein Worksheet anspreche welches in Tabelle2, Zelle A1 definiert ist und dieses mit dem Namen aus Tabelle3, Zelle A1 belege.

danke im Vorraus für eure Unterstützung

Hallo,

Ich brauche 10 Variabeln, die einer Zufallszahl zugewiesen sind, jedoch dürfen sich die Zufallszahlen nicht wiederholen. Also z.B.

Z1= 23

Z2= 25

Z3= 25

Z4= 19

Z6= 17

....

Die "25" kommt nun 2 mal vor und das sollte nicht sein, also müsste Z2 oder Z3 zu einer anderen Zahl geändert werden.

Wie kann man das überprüfen lassen? Gibt es eine einfache und schnelle Möglichkeit ohne viel Code? Oder müsste man jede einzelne Variable mit if überprüfen?

MfG Fabian

Hallo zusammen,

ich stehe vor dem Problem die Inhalte von zwei Tabellen tauschen zu müssen.

Da die Daten zum Teil aus Checkboxen besteht ist das nicht so einfach.

Meine Idee ist folgende: Ich möchte z.B. die Namen der Tabellenblätter 1.11 und 1.15 tauschen. Dazu muss ich der Tabelle 1.11 erst zur Tabelle "x" umbenennen und 1.15 zu "y" umbenenen. Anschließend bekommt Tabelle "x" die Bezeichnung 1.15 und Tabelle "y" die Bezeichnung 1.11.

Welche Tabellen ihre Bezeichnungen untereinander tauschen sollen steht in Zelle K1 und K2. In diesem Beispiel 1.11 und 1.15.

folgendes habe ich mir überlegt... nur funktioniert es nicht.

Sub test()

alterName = Range("K1")

neuerName = Range("K2")

zwischenName1 = "x"

zwischenName2 = "y"

Dim WsTabelle As Worksheet

For Each WsTabelle In Sheets

   If WsTabelle.Name = alterName Then

       Sheets(alterName).Name = zwischenName1

   If WsTabelle.Name = neuerName Then

       Sheets(alterName).Name = zwischenName2

   If WsTabelle.Name = zwischenName1 Then

       Sheets(alterName).Name = neuerName

   If WsTabelle.Name = zwischenName2 Then

       Sheets(alterName).Name = alterName

       Exit For

   End If

Next WsTabelle

End Sub

Hallo zusammen,

ich benötige wieder einen Denkanstoß.

Ich habe Arbeitsblätter die ich per VBA umbenennen möchte.

Der Name des Tabellenblatt welches umbenannt werden soll steht im aktiven Tabellenblat in Zelle A1 und der neue Name des Tabellenblatt steht in Zelle A2 des aktuellen Tabellenblatt.

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

    "=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

Hallo zusammen

wie schon der Titel sagt habe ich das Problem, dass VBA:

oDoc.Tables(1).Cell(zeile, spalte).Range.Words(Wortzaehler).Font.Italic = True

gewisse Zeichen als Wort interpretiert. Bspw. ".", "%", sind alles eigenständige Wörter

Wenn ich nun jedes Wort einzeln durchgehen möchte, muss ihc zu vor mittels split " ", den string teilen. ABER die anzahl an wörtern simmt dann nicht

bspw:

Das ist ein 100% Test --> das sind laut Split bei jedem leerzeichen 5 Wörter

ABER

Range.Words(Wortzaehler) zählt 6 Wörter, da das Prozentzeichen als extra Wort gezählt wird. Wie kann ich den "wirklich" alle Wörter abzählen (inkl. Prozentzeichen usw.)

Hallo zusammen,

ich suche nach einer Zeile Code, mit der ich dynamisch die gesamte Tabelle auswählen kann.

Bislang habe ich verwendet:

Range("A1:U76").Select

Nun kann die Tabelle aber auch mehr oder weniger als 76 Zeilen haben (wenn sich die monatlichen Werte ändern).

Daher hatte ich an folgendes gedacht:

Range("A1:U" & ???).Select

(Zum inhaltlichen Verständnis: Danach werden Teilergebnisse hinzugefügt, und damit das funktioniert, ist die Tabelle "nicht intelligent/formatiert", also kein Listobject. Dafür habe ich allerdings schon funktionierenden Code.)

Die Frage ist jetzt, was ist ???.

Meine bisherigen Experimente waren leider nicht erfolgreich, deswegen frage ich nach einer Universallösung nach. Gerne neu aufschreiben.

Falls dies noch wichtig ist: Aufgrund der Datenlage sind nur die Spalten A-E vollständig mit Inhalten gefüllt, die weiteren Zellen weisen aufgrund der Datenlage Leerzellen ("null") auf.

Danke schon mal im Voraus.

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

• Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
• Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

Hallo Miteinander
Ich würde gerne in VBA Word eine Inputbox oder Userform machen bei welcher man ein Passwort eingeben kann. Ich will aber nicht, das man das Passwort abschliessen muss, sondern das bei jedem Buchstaben bereits kontrolliert wird, ob das Passwort stimmt.

Weiss jemand wie das Funktioniert?

Hallo zusammen, folgende Herausforderung.

Ich habe eine gut funktionierende Excel Datei mit einigen VBA Modulen. Jetzt möchte ich, wenn ein bestimmter User diese Datei verwendet, dass die sich selber zerstört (fragt lieber nicht warum ;-)

Meine Idee wäre es, anhand des Pfades den Nutzer zu ermitteln (ist bekannt) und damit den Auslöser zu programmieren. Jetzt 2 Fragen.

1. Gibt es eine bessere / sichere Lösung, natürlich soll "der" nutzer das nicht bemerken
2. Wie kann ich VBA per VBA ändern? Die Datei soll sich noch öffnen können, aber die Scripte sollen nicht mehr funktionieren, und das nicht nur per if anweisung, sondern es soll die Scripte so zerschießen, dass ein ungeübter VBA nutzer die nicht wiederherstellen kann.

Da Fragen nach dem "Warum" sicher nicht ausbleiben gleich hier die Antwort. Ich habe ein Haufen (zusätzliche) Arbeit investiert um Prozesse zu beschleunigen und zu vereinfachen und gehe für eine Woche in Urlaub, und meine Vertretung ist bekannt dafür nicht viel zu leisten aber die Lorbeeren einzuheimsen, und das sehe ich nicht ein. Nennt das kindisch, ist mir bewusst aber Wurst. Vielleicht ist da draußen jemand mit genug krimineller Energie mir zu helfen??

Danke :-)

Guten Morgen

Ich habe eine Arbeitsmappe, in welcher ich monatlich ein neues Arbeitsblatt einfüge. Dies mittels Kopieren. Nun habe ich einen VBA, welcher fürs 1. Blatt korrekt funktioniert, aber beim Neuen infolge anderem Registername (?) nicht funktionier.

Was muss ich ändern? Ganz grossen Dank für die Hilfe. Nachstehend das Makro.

    Range("A2:E119").Select
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("A3:A119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("B3:B119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("07.21").Sort
        .SetRange Range("A2:e119")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

Hallo, ich versuche gerade ein docx-Dokument zu bearbeiten, das hier ist mein Code:

using Microsoft.Office.Interop.Word;
[...]
Application wordApp = new Application();
wordApp.Visible = false;
Document wordDoc = wordApp.Documents.Open([pfad], ReadOnly: false, Visible: false);
wordDoc.Activate()
Range rng = wordDoc.Range(0, 2);
            rng.Text = "Some Text";
wordApp.Documents.Save(NoPrompt: true, OriginalFormat: true);
wordApp.Documents.Close(SaveChanges: true, OriginalFormat: false, RouteDocument: false);
Console.WriteLine("Finished");
Console.ReadLine();

Aber obwohl ich die Visible-Vairable auf false gesetzt habe, öffnet sich Word. Nicht normal, sondern so:

Kann mir da jemand helfen?

Hallo ihr lieben,

ich steh total auf dem Schlauch und bin am verzweifeln. Ich benötige ein VBA-Makro, welches aus Spalte D alle negativen Werte aus den Zellen löscht. Der Code, welchen ich mir zusammen gebastelt habe, funktioniert jedoch vorne und hinten nicht.

Habt ihr hier eine Idee?

Viele Grüße & Danke!

Hallo,

ich würde gerne den Inhalt einer Zelle mit "Standard"-Format in eine neue Zelle mit dem "Datum"-Format überführen.

Ich habe bereits gelesen, dass dies mit =TEXT(<Zelle>;"TT.MM.JJJJ") klappen soll. Das funktioniert zumindest soweit, dass das Datum dann korrekt angezeigt wird, aber die Zelle wird weiterhin von Excel nicht als "Datum" interpretiert. Es steht weiterhin "Standard" als Zellenformat da.

Das sorgt leider dafür, dass meine Pivot-Tabelle die Datumsfelder nicht gruppieren kann.

Hoffe mir kann jemand dabei helfen! Dankeschön!

VG

Hallo zusammen,

folgende Herausforderung, ich habe eine Liste mit 3 Spalten und circa 1000 Zeilen.

In Spalte 1 sind Namen, 180 verschiedene, welche mehrfach vorkommen (daher die 1000 Zeilen), in Spalte 2 steht ein Datum (unwichtig) in Spalte 3 steht eine Stundenanzahl, die diese Person an dem entsprechendem Datum gearbeitet hat. Ich möchte nun, dass alle Stunden, die zu einer Person gehören, addiert werden. Also dass ich am ende, von mir aus in spalte 4 sehe, Mitarbeiter Hans hat im Zeitraum XY 120 stunden gearbeitet.

Beim googlen hab ich gesehen, es gibt die "summewenns" funktion, aber ich brauche etwas dynamisches, gerne auch VBA basiert, denn erstmal kommen ständig neue Mitarbeiter dazu und zweitens wäre das Einrichten bei 180 Namen (also 180 verschiedene Suchkriterien) ein Riesenaufwand.

Danke und bis denn, gruß stroiner

Hallo zsm

Ich habe einen Festen Wert Zb. 4. Ich möchte nun die anderen Werte welche sich in der Zeile befinden genau bei der 4 in einem anderen Tabellenblatt ersetzen lassen.

Wie funktioniert das?

Moin.

Ich bekomme eine automatisierte Tabelle, welche anschließend ausgewertet werden soll. Da in dieser Tabelle das Datum so angebgeben wird : "21-May-2021 UTC" und ich es allerdigns als 21.05.2021 brauche und dies nicht über die Zellenformatierung funktioniert, bräcuhte ich mal eure hilfe.

Wie bekomme ich das am besten hin ? Dnake schonmal ^^

Hallo, folgendes Problem.

Ich habe 2 Excel Listen mit Namen, ca. 190 Stück. (Neben den Namen gibt es natürlich weitere Daten)

Die eine ist alphabetisch sortiert, die andere quer durcheinander, nun brauche ich die alphabetische liste allerdings in der gleichen reihenfolge wie die durchmischte.

Hintergrund ist, ich muss Daten abgleichen und durch die unterschiedliche Reihenfolge bin ich nur am hin und herspringen, das dauert stunden. Die manuell neu zu sortieren ebenfalls, und da die unsortierte Liste Bezüge zu einem externen System hat, kann/darf ich diese nicht einfach alphabetisch umsortieren ....

Ich weiß, das es per VBA irgendwie geht, es gibt routinen für suchen und sortieren, aber ich bin in VBA nicht fit genug, um das hinzubekommen. Vielleicht denke ich auch zu kompliziert und es gibt eine Excel-interne-nicht-VBA-Lösung?

Danke schonmal für eure Hilfe. Gruß Stroiner.