Excel VBA: Tabellenblatt nur exportieren, wenn Zelle A2 befüllt ist. Geht das?

1 Antwort

Ungetestet: (Aber sollte gehen)


if Range("A2") <> "" then
' Hier Marko einfügen, das ausgeführt wird wenn A2 nicht leer ist
Sheets(....").Select Application.CutCopyMode = False
else
' Hier Tabellenblattsprung einfügen z.B.: (Wenn A2 leer ist)
Sheets("Tabelle2").Select
end if



Excel VBA Fehler '1004' "Anwendungs- oder objektdefinirter Fehler" Was tun?

Mein Programm Prüft ob in einer bestimmten Zelle eine Stadt steht und kopiert dann aus "Diverses" eine bestimmte Range. Nur leider erscheint immer der Laufzeitfehler '1004' Anwendungs- oder objetdifinirter Fehler. Kann mir da jemand vieleicht Helfen?

Private Sub CommandButton1_Click()

If Cells(9, 4) = "Düsseldorf (3885)" Then

  Sheets("Diverses").Select
  Sheets("Diverses").Range(L2, L8).Select //Fehler in der Zeile
  Selection.Copy
 
  Sheets("IT Banf").Select
  Sheets("IT Banf").Range(A35, A41).Select
  ActiveSheet.Paste
 
  Sheets("Diverses").Select
  Sheets("Diverses").Range(L9, L13).Select
  Selection.Copy
  
  Sheets("IT Banf").Select
  Sheets("IT Banf").Range(C35, A39).Select
  ActiveSheet.Paste


End If


End Sub
...zur Frage

Excel 2010: Silbentrennung

Ist bei Excel 2010 eine Silbentrennung möglich? Also wenn ein Satz in einer Zelle durch Zeilenumbruch "passend gemacht wird", dass die Wörter an einer sinnvollen Stelle getrennt werden?

Bei Word geht das, aber ich find bei Excel nichts!

...zur Frage

Excel - Wenn Wert in Spalte = x, dann Nachbarzelle kopieren

Hallo,

lässt sich folgende Aufgabe über eine Formel lösen?

Wenn ja, wie lautet die Formel?

Ich habe in Spalte A Texte und in Spalte B dazugehörige Zahlenwerte.

In Spalte C stehen stehen die gleichen Texte wie in Spalte A, nur in einer anderen Reihenfolge.

Wenn nun z.B. in Spalte A der Text in der Zelle A3 = "xy" steht, soll der dazugehörige Zahlenwert in Zelle B3 = "365" zu dem passenden Tex in Spalte C gezählt werden.

Also wenn "xy" in Zelle C10 steht, muss der Wert aus B3 = "365" in D10 eingetragen werden.

Ich hoffe es ist verständlich ausgedrückt.

Danke & Gruß Peter

...zur Frage

Excel VBA - Zeile unter Bedingung ausblenden?

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

LG

Benny

...zur Frage

Excel VBA. Wie kann ich eine Zelle in ein anderes Tabellenblatt in eine bestimmte Spalte einfügen?

Wie kann ich zum Beispiel aus Tabellenblatt Zelle A11 Werte in Tabellenblatt 2 kopieren und dabei Spaltte "B" hineinkopieren? Außerdem soll Excel immer in die nächste frei Zeile die Werte hineinkopieren.

...zur Frage

Ich möchte in eine Excel-Tabelle Pflichtfelder erstellen, sobald in einer Zelle ein Wert eingetragen ist?

Sobald man z.B. in die Zelle A1 einen Wert eingetragen hat, müssen zwingendermaßen auch die Zellen C1, E1, F1 und H1 ebenfalls befüllt werden. Das ganze müsste für das ganze Tabellenblatt gelten: z.B. Wert wird in A2 eingetragen - dann müssen ebenfalls die Zellen C2, E2, F2 und H2; Wert wird in A3 eingetragen - dann müssen ebenfalls die Zellen C4, E4, F3 und H3; Wert wird in A... eingetragen - dann müssen ebenfalls die Zellen C..., E..., F... und H...; usw.

Sollte eine Zelle, zu einem Pflichtfeld geworden, beim Speichern noch nicht befüllt sein, sollte ein Fehlermeldung ausgegeben werden - Speichern nicht möglich!

Vielleicht kann man das über VBA machen.

Kann mir hier evtl. jemand weiter helfen?

Vielen Dank im Voraus!

Viele Grüße Python1860

...zur Frage

Was möchtest Du wissen?