VBA – die besten Beiträge

Hallo,

Ich habe ein chronologisches Logbuch in Excel erstellt. Ich habe außerdem einen Button "Datum/Zeit einfügen" erstellt.

Beim Klick auf den Button soll ab Zeile 11, Spalte B das aktuelle Datum und gleichzeitig ab Zeile 11, Spalte C die aktuelle Zeit eingetragen werden. Beim erneuten Button-Klick soll sich das ganze fortführen, d.h. aktuelles Datum in Zeile 12, Spalte B und Zeit in Zeile 12, Spalte C.

Wie lautet das makro hierzu?

Hallo zusammen,

Ich bin dabei ein 4 Gewinnt du programmieren. Es spielen 2 Menschen gegeneinander. Das Feld wird in Excel dann jeweils Gelb oder Rot gefärbt. Das funktioniert alles, aber etwas bereitet mir noch Kopfzerbrechen. Und zwar die abfrage, wer gewonnen hat, wenn 4 in einer Reihe sind. Wenn ich das mit einer If-Abfrage mache und jede Möglichkeit überprüfe, gibt es alleine horizontal 48 Möglichkeiten....

Hat jemand eine Idee wie ich das besser machen könnte?

MfG Duma

Ich habe in einer Zeile mehrere Zellen welche einen Wert haben. Wenn also die die Zelle E 4 gleich Null ist, soll die Zeile 4 ausgeblendet werden. Kann mir jemand sagen wie das geht.

Gruß und Danke

Gert

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

 Dim arrSuchbegriff, i&
 arrSuchbegriff = Array("Suchbegriff1", "Suchbegriff2", "", "SB3")

 For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
     ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:=False
 Next i
 ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
 ActiveSheet.Cells.Delete

Das Makro klappt, allerdings löscht es mir nur die Zelle in der der Begriff enthalten ist, und nicht die komplette Zeile. Kann jemand helfen? Viele Grüße

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

Kann man bei Excel eine Zelle sperren wenn eine andere Zelle nicht den richtigen Wert enthält?

Beispiel:

A1=Test1 A2="angeforderter Text(Test2)" =Zelle ist gesperrt

wenn aber

A1=Test2 A2="angeforderter Text(Test2)" = Die Sperrung der Zelle ist aufgehoben

Hallo,

ich brauche dringend Hilfe bei der Programmierung eines Makros in Excel. Ziel soll es sein Zeilen (Spalte B) aus Tabellenblatt1 x-mal (Zahl, die in Spalte A steht) in Tabellenblatt2 zu kopieren. Hier ein Beispiel, wie ich das meine:

Tabellenblatt 1:
Spalte A..... Spalte B
3................. Katze
2................. Vogel
4................. Hund

Ziel in Tabellenblatt 2:
Spalte A
Katze
Katze
Katze
Vogel
Vogel
Hund
Hund
Hund
Hund

Ich hab schon vieles probiert und es u.a. geschaft ganze Spalten mit Hilfe eines Makros von Tabellenblatt1 in Tabellenblatt2 zu kopieren, also z.B. Spalte A aus Tabellenblatt1 in Spalte A des Tabellenblattes2. Oder auch eine Zelle (A1) entsprechend der angegebenen Zahl (in Spalte A) darunter x-mal einzufügen. Aber ich schaffe es nicht, dass die Zelle in Spalte B in Abhängigkeit vom Wert, der in Spalte A steht, x-mal in einem neuen Tabellenbaltt einzufügen.

Ich brauche das Makro für die Arbeit, um die Erstellung von Rechnungen zu vereinfachen.

Ich freue mich über jede Hilfe und hoffe, dass mir jemand mit der Programmierung helfen kann. Excel-VBA für Dummies war mir bisher leider keine groe Hilfe :(

Hallo zusammen,

Ich habe eine Textbox (txtxDatum), in der das aktuelle Datum steht (tt.mm.jjjj). Dieses wird beim initialisieren reingeschrieben.

Nun möchte ich mit einem SpinButton (SpinButton1) das Datum hoch bzw runterzählen. Also dass dieses dann in der Textbox steht.

Wie kann ich das am besten machen?

MfG Manu

Hallo ihr Lieben,

mal wieder bin ich dabei, für die Arbeit ein Excel-Sheet zur Erleichterung zu basteln.

Diesmal möchte ich eigentlich etwas recht Simples: Per Buttonklick auf - oder + soll der Wert einer Zelle entweder um 1 erhöht oder verringert werden. Die betroffene Zelle steht in jeder Zeile zwischen den zwei Buttons (siehe Screenshot). Um nicht für jeden Button eine eigene Funktion schreiben zu müssen, wollte ich hier mit Offset der Zelle, in der der Button liegt, arbeiten, aber irgendwie bekomme ich es syntaktisch nicht hin und bitte deswegen um Rat, wie ich das realisieren kann.

Würde mich freuen, wenn jemand die Lösung für mich hat. Vielen Dank bereits im Voraus!

Lg Lego

Ich brauche einen Code, mit dem ich feststellen kann, welches von 100 Bezeichnungsfelden (= Label) angeklickt wurde.

Bei Befehlsschaltflächen (Commandbuttons) kann man es mit

MsgBox ActiveControl.Name

ermitteln.

Der Code gibt aber keine Label wieder. Es kommt immer der zuletzt aktivierte Button und nicht das Label.

Ich kann natürlich das einzelne Click-Ereignis jedes Labels abfragen, aber was für ein Aufwand!

Ich hoffe jemand weiß, wie ich in einer Function ermitteln kann, welches Label die Function aufgerufen hat

wenn man im Eigenschaften-Fenster des Labels unter "Beim KLicken" folgendes einträgt, kann man die Function aufrufen und muss nicht das Click-Ereignis programmieren:

=MyFunction()

Wertet man dann in der Function aus, welches Label aktiv war, kann man daraufhin verzweigen.

Bin für jeden Hinweis dankbar

Und wieder mal Hallo zusammen,

ich arbeite an einem Makro, das für jeden Kunden eine Zählung durchführen soll. In Spalte "A" steht hierbei der Kundenname, in Spalte "J" dann das Produkt.

Das Makro soll nun die Einträge in Spalte "J" durchsuchen und die gleichen zusammenzählen.

Die Ausgabe wiederum soll in einem neuen Tabellenblatt erfolgen und wie folgt aufgebaut sein. Spalte A: Kundenname Spalte B: Produkt Spalte C: addierte Anzahl des jeweiligen Produkts

Der Kundenname soll aber, wenn möglich, nur einmal ausgegeben werden so dass eine schöne Übersicht entsteht.

Die Produkte haben die unterschiedlichsten Bezeichnungen, wiederholen sich aber definitiv öfters in Spalte "J".

ich hoffe hier kann mir jemand helfen :)

Danke und viele Grüße Chris

Liebe Experten,

in meiner Excel-Datei befindet sich in der Spalte E in einigen Zellen (nicht in jeder Zeile) ein Text, der irgendwann durch ein Komma getrennt ist.

Der Text ist in jeder Zelle unterschiedlich

Ich benötige nur den Text vor dem Komma.

Also aus Frau Müller, Geranien Weg 5 soll nur noch Frau Müller werden oder aus Team A - Team B, 6. Spieltag soll nur noch Team A - Team B werden.

Ich bräuchte dafür ein Makro bzw einen Code den ich in ein schon bestehendes Makro einbauen kann.

Vielen Dank für Eure Hilfe. Ich google mich schon langsam tot, ohne etwas passendes gefunden zu haben bzw. meine VBA - Kenntnisse sind dafür einfach noch zu rudimentär.

MJ

Hallo, Ich habe eine Excel Tabelle, in dieser befinden sich 3 Spalten in denen mehrere Tausend von Einträgen sind. Dien Tabelle soll exportiert werden und muss sich daher an Zeichenlängen halten. Da ich nun schon alle Zellen mit werten habe, möchte ich wissen, wie ich nachträglich Überprüfen kann, ob die Maximale Zeichenlänge Überschritten wurde und wenn ja diese von hinten um X Zeichen kürzen bis sie der Vorgabe entspricht. Ansonsten könnte ich sie nicht einlesen. Bei 5-6000 Einträgen würde ich das aussortieren und kürzen nur ungern von Hand übernehmen. Danke

Hallo zusammen,

gibt es eine Möglichkeit eine komplette Excel Spalte in SAP einzufügen. Bei SAP kann ich maximal 16 Zeilen per Copy und Paste einfügen. Gibt es ein Tool, oder einen Trick um eine komplette Spalte mit beispielsweise 100 Zeilen oder mehr direkt in einem Schritt zu kopieren? Vielleicht hat jemand dasselbe Problem und eine Lösung parat

Hallo Leute ich hab ein Problem und zwar möchte ich aus einem Tabellennblatt die Spalten A,B,C,D in einer Combobox einfügen... nur hab ich wenig bis gar keine Ahnung mit VBA danke für die Hilfe schon im Voraus.

Hallo an alle Excel-Nerds :P

Und zwar versuche ich in der Reihe unter den Tagesnummern die Wochentage auszulesen. Weiß jemand wie das möglich ist ? Bin nicht so der VBA-Programmierer.

Danke schonmal im Vorraus .

Gruß Mutti

Hallo! Das ganze soll ungefähr so aussehen: wenn in Zelle A1 "baum" steht soll der Inhalt aus B1 in das naechste Tabellenblatt in eine bestimmte Spalte..aber keine bestimmte Zelle kopiert werden..

Beispiel: Baum steht in der Haupttabelle in Zelle A1..Zelle B1 wird in das 2te Tabellenblatt in C1 kopiert...sollte nun ein zweites Mal in der Haupttabelle "Baum" stehen soll B1 allerdings nicht in tabellenblatt2 C1 sondern in C2 stehen..also das es immer weitergefuehrt wird. Geht das nur mit Vba oder auch mit ner Formel..mir fällt nichts ein.

Danke schonmal

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub     

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

Hallo,

ich habe folgendes Problem: Ich habe eine Tabelle mit einem Blatt in dem alle Daten enthalten sind und viele Blätter in denen jeweils ein Teil der Daten dieses Grunddaten Blatts auftauchen sollen, einschließlich der jeweiligen Schriftfarbe, Schriftart, eben mit genau der Formatierung, die die Daten auch in "Grunddaten" haben. Am besten sogar so, dass sie sich automatisch aktualisieren, wenn sich die Daten in "Grunddaten" ändern. Ich hoffe ein Computerkenner kann mir helfen! Danke!