Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

Datenquelle Tabellenblatt

Ausgabe Tabellenblatt

Ich habe eine Wenn-Formel, die in 4 Zeilen untereinander 4 Werte eines anderen Blattes aus 4 nebeneinander liegenden Spalten der selben Zeile ausgibt. Diese 4 Formeln sollen dann für die nächste Zeile durchgeführt werden. Ich habe jetzt vier separate Formeln angelegt und diese nach unten gezogen. Dabei vergrößert sich der Abstand der nächsten Zeilenabfrage jedoch auch um 4.

Kann ich eine Art Schleife bauen, in der nach 4 Zeilen der abgefragte Zeilenwert um 1 erhöht wird. Also:

=WENN(Tabelle2!$G3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$H3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$I3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$J3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$G4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$H4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$I4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$J4<>0; Tabelle2!$D4;"")

Vielen Dank für die Unterstützung!

Liebe Community,

ich bräuchte erneut eure Hilfe. :)

Aktuell lade ich täglich eine Excel Tabelle in meine Excel Vorlage hoch. Dort wird diese verarbeitet, wie z.B. sortiert usw.

Leider gibt es in der Spalte D oft mehrere Werte. Kann man diese mit VBA und Makro herausfiltern und eine neue Zeile damit befüllen? Wie ich das genau meine, siehe Screenshot.

Ich habe mir gedacht, dass man Excel hier mitteilt, dass in der Spalte D, wenn nur ein Wert mit einer Zeichenlänge von 6 Buchstaben hat, dass er dann nichts macht.

Beispiel nur Lag14 oder Lag7

Ist die Zeichenlänge länger als 6, dann soll er prüfen ob diese 15 Zeichen beträgt. Wenn ja, dann soll er den Wert zwischen 6 und 15 abschneiden und kopieren und im Anschluss in eine neue Zeile kopieren. Die anderen Spalten bleiben identisch. Eine Art Kopie sozusagen.

Beispiel für Lag/22 - Lag/51

Und dann noch das Gleiche für das Beispiel Lag/22 - Lag/51 - Lag/71

Liebe Community,

ich habe folgendes Macro in meiner Excel Tabelle. Es funktioniert auch wunderbar, bis auf die Tatsache, dass dort der Tabellenbereich aus der fremden Excel-Datei definiert ist.

Leider sind es nicht immer 239 Zeilen. Mal mehr und mal weniger. Dass es bei A7 anfängt, das stimmt schon. Wie müsste ich die Formel ändern, damit Excel sich automatisch anpasst?

Vielen lieben Dank im Voraus!

Es handelt sich um diese Zeile wbQuelle.Worksheets(1).Range("A7:I239").Copy

Sub Quelle()

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range

sPfad = "C:\Users\Beispiel\Desktop\Irgendeine Datei\Daten\Daten.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

wbQuelle.Worksheets(1).Range("A7:I239").Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

End Sub

Guten tag, habe gelesen dass 50 mm brennweite als standardobjektiv angesehen wird alles was darunter ist als weitwinkelobjektiv angesehen wird und alles was darüber ist als teleobjektiv angesehen wird. nun ist es ja aber so dass makroobjektive eine brennweite vom 100 mm hat. erste frage haben makroobjektive immer 100 mm oder in welchem brennweitenbereich werden makroobjektive definiert. zweite frage nun ist es ja so dass 100 schon eine eher höhere brennweite und somit ja schon in ein teil des teleobjektivs fällt punkt nun stellt sich bei mir die frage was eigentlich der unterschied zwischen den beiden genau jetzt. Bei beiden wird das Objekt ja näher ran geholt und vergrößert. Ist also der einzigste Unterschied dass man bei einem Makro Objektiv ein sehr geringe Naheinstellgrenze hat und man nah an das Objekt dran muss und man bei einem Tele die Fotos von weitem schießen kann? LG lasse

Servus, in der Aufgabe soll man Temperaturen umrechnen.

mein Makro:

#define CONVERTER(c)(((c) * (9 / 5)) + 32)

meine Ausgabe:

printf("%f  ", CONVERTER(temp[i]));

Wie erreiche ich jetzt, dass das Ergebnis von CONVERTER richtig ausgeben wird?

Da zum Beispiel für 1 Grad, das Ergebnis 33 Fahrenheit ist, da hier ja 9/5 = 1, ich will aber ja die Kommazahl (float) von 9/5.

Gruß

Hallo zusammen

ich benötige Hilfe und zwar habe ich in verschiedenen Zeilen z.B .... [Kundenname] [Datum] stehen und würde jetzt gerne diese automatisch mit Inhalten einer bestimmten Zelle austauschen sobald man dort etwas einfügt. z.B Vertrag [Kundenname] (Zelle G3) wird zu Vertrag Gutefrage (da aus A1 "Gutefrage") 

ist das verständlich? ich habe leider so gar keine Ahnung was Visual Basic angeht 

Danke euch!

Hey zusammen!

Ich würde mir gerne ein Stream Deck von Elgato zulegen, weiß aber nicht welches besser davon ist. Das Stream-Deck XL hat 32, das normale 15 Tasten. Welches würdet Ihr mir WARUM empfehlen?

Es wäre sehr nett wenn Ihr mir dabei helfen könntet.

Danke für Eure Hilfe im Voraus

LG

Hallo, wo finde ich Hilfe zu diesem Thema? Für Excel gibt es genügend deutsche Foren.

Wo finde ich Hilfe zu Google Tabellen und Makros darin?

Hallo zusammen,

ich habe eine Excel-Datei, welche ich unter .xlsx speichern wollte. Es wird mir gemeldet, dass sich in dieser Excel Makrso befinden. Leider weiß ich nicht mehr genau, was ich damals da an Makros eingepflegt habe.

Ich kann sie nur unter .xlsm speichern.

Und wenn ich sie unter .xlsx speichere, erscheint die Meldung, dass kein automatisches Speichern möglich ist.

Wo und wie kann ich erkennen, welche Makro da noch irgendwo schlummern? In den Entwicklertools finde ich sie nicht!

Danke für eure Hilfe!

ich habe zwei lange makros erstellt und würde die gerne nacheinander schalten

also ohne beide selber zu drücken sondern nur eine

wie kann ich das machen? ich hab die makro über die icue software erstellt

Hey liebe Fotocommunity,
Ich bin seit ca. 3 Monaten in der Makrofotografie aktiv, benutze dafür aber bis jetzt nur ein "allround" Objektiv. Und da mir Makro echt Spaß macht wollte ich jetzt upgraden. Nur weiß ich leider nicht ob ich mir einfach Zwischenringe kaufen sollte oder direkt ein Makroobjektiv. Und vielleicht könntet ihr auch gleich eins dazu schreiben was ihr empfehlen könntet. Kamera ist die EOS450d von Canon.
Danke :)

Servus Leute

Ich weiß es gibt keine Einstellung die für jede Situation perfekt ist

Aber ich wollte mal wissen mit welcher Einstellungen ihr am meisten fotografiert bei welcher Situation

Ich sag schon mal im voraus vielen Dank

Hallo,

Ich habe vor etwa 2 Monaten mit Fortnite angefangen (hasst mich gerne dafür xd) und frage mich jetzt, (da ich meine Edits nd so geil hinkriege) ob es eine Art Makro gibt, das solange aktiv bleibt, bis ich die Taste, mit der ich es aktiviere, loslasse. Freue mich über Antworten :)

Thx

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

Hey Leute, ich habe folgendes Problem.

Ich verzweifle grade wirklich bei dem schreiben eines sehr simplen Scrips für die Tastatur.

Im Grunde genommen soll das Skript mit STRG+Num3 gestartet werden. Das Ziel ist eigentlich nur das der Buchstabe E gedrückt werden soll, eine Sekunde später soll die Taste Enter gedrückt werden, und dann soll eine Pause von 21 Sekunden stattfinden. Und das ganze wiederholt sich dann einfach.

Ich kenne mich wirklich null damit aus.. Kann mir einer dabei helfen ;(? Ich wäre wirklich sehr dankbar!

Hallo!

Ich hätte mal Fragen zu Makros,

Ich kenne Makros eig in Spielen und sie automatisieren etwas oder vereinfachen. Meine Frage jetzt dazu ist, dass ich auch gerne ein Makro schreiben würde für Spiele, ich habe aber keine ahnung von etwas.

Könntet Ihr Tipps geben wie ich langsam damit anfangen kann wie das geht? Oder hättet ihr eine Plattform wo ich dann zb das machen könnte?

(In meinem Spiel ist es so das man Waffen hat und Skills. Man muss für höhreren Schaden Waffen wechseln, also immer auf die Waffe draufklicken und dann den skill drücken, waffen wechseln... usw. Ich würde das gerne machen das ich keine Waffen wechseln muss sondern nur den skill drücken muss und die Waffe automatisch wechselt.)

Ich wär für Hilfe dankbar!

Mit freundlichen Grüßen

Hallo,

Ich habe mir heute mal das Macroprogramm "Macro Recorder" geholt und wollte einmal fragen, wie man dort einstellen kann, dass dort eine Taste (wie "R") für eine bestimmte Zeit gedrückt halten kann. Danke für die guten Antworten im Voraus. Wenn es mit diesem Programm nicht geht, bitte ein anderes Programm erwähnen.