Hallo,

ich möchte eine Exceltabelle für Artikel herstellen. Die Daten, die ich einfügen möchte, sind in Spaltenform gelistet ( von oben nach unten. Ich brauche die Daten jedoch in der Zeilenform. Um den Vorgang zu automatisieren habe ich ein Makro erstellt. Jedoch schreibt er mir die Daten immer in die gleiche Zeilen. Ich habe es leider, mit meinem Laienwissen, nicht hinbekommen eine "wenn, dann" Funktion einzufügen.

Meine Formel lautet folgendermaßen:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E9:K9").Select
    ActiveSheet.Paste
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Bei "Range("E9:K9").Select" brauche ich eine Funktion, die wenn der Wert zwischen E9:K9 besetzt/beschrieben sein sollte es dann auf E10:K10 die Daten einfügt.

Ich würde mich sehr freuen, wenn mir jemand mit meinem Problemchen behilflich sein könnte.

Vielen Dank

Hallo Excel-Helden,

wieder mal komme ich mit etwas vermeindlich einfachen nicht zurecht. Ich habe einen Wochenspeiseplan erstellt, beidem die Zutaten der Ausgewählten Gerichte in das Tabellenblatt "Einkaufszettel" übertragen werden sollen. Das Tabellenblatt "Frühstück" beinhaltet die Liste des Dropdowns sowie die Zutaten für die Einkaufsliste.

Ihr habt doch sicherliche eine Idee oder? :D

hallo nochmal,

ich möchte gerne dass ich einen bestimmten Tabellenbereich aus Excel in einer Email versenden kann (nicht als Anhang, sondern im Textfeld, und nicht als Screenshot). das klappt bisher auch gut bei mir. jedoch ist da auch ein Logo mit drin, dass ich nicht anzeigen lassen kann (ein eingefügtes Bild). was muss ich da ändern?

mein makro sieht jetzt teilweise so aus:

Bodyteil der EMail:

.HTMLBody = fncRangeToHtml("E-Mail", "F13:O37")

und die funktion dazu:

Private Function fncRangeToHtml(strWorksheetname As String, _ strRangeaddress As String) As String Dim objFilesytem As Object, objTextstream As Object Dim strFilename As String strFilename = Environ$("temp") & "/" & _ Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ActiveWorkbook.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=strFilename, _ Sheet:=strWorksheetname, _ Source:=strRangeaddress, _ HtmlType:=xlHtmlStatic).Publish True Set objFilesytem = CreateObject("Scripting.FileSystemObject") Set objTextstream = objFilesytem.GetFile(strFilename). _ OpenAsTextStream(1, -2) fncRangeToHtml = objTextstream.ReadAll objTextstream.Close Set objTextstream = Nothing Set objFilesytem = Nothing Kill strFilename End Function

es liegt bestimmt an dem htmlbody, aber ich habe keine bessere lösung gefunden mit der es bisher gklappt hat

Hallo,

Ausgangssituation: ich habe eine Excel-Tabelle mit verschiedenen Daten von Personen, unteranderem auch in mehreren Spalten Email-Adressen.

Ich möchte über eine Schaltfläche, dass sich automatisch ein Nachricht versenden Fenster von Outlook öffnet mit allen Email Adressen aus der Excel-Tabelle. Zuvor müssten jedoch Duplikate entfernt werden

ist das möglich? und wenn ja wie?

Hallo zusammen

Kann man mittels VBA im Word ein Bild an einer bestimmter Position einfügen? Also nicht dort wo der Cursor sich befindet?

Ich möchte nämlich ein Bild am Rand des Blattes einfügen, wo man den Cursor nicht hinstellen kann.

Ich weiss es würde mit Textfeldern gehen, aber dann müsste man ca. 1500 Vorlagen anpassen.

Besten Dank für eure Hilfe

Ist es möglich, dass ich in Excel z.B. in Zelle A1 eine Zahl eingebe, dann in Zelle B1 die aktuelle Uhrzeit erscheint und beim zweiten eingeben der selben Zahl in einer ganz anderen Zelle (z.B. A38), dies automatisch erkannt wird und in C1 wieder die aktuelle Uhrzeit erscheint. Es geht um Einfahrt- und Ausfahrtszeiten... Erst wenn beim dritten Mal die selbe Zahl eingegeben wird, soll in einer neuen Zeile, das wieder mit der Einfahrtzeit begonnen werden.

Ich habe eine Ferienliste mit diversen Absenz-Möglichkeiten, welche mit einer Farbe hinterlegt sind.

Per Makro möchte ich es einrichten, dass, wenn ich in der Arbeitsmappe die entsprechenden Tage auswähle und dann auf die Makro-Schaltfläche klicke, dass die entsprechende Zelle in der definierten Farbe erscheint.

Nur bin ich wohl zu doof, das Makro zu schreiben... Ich schaff es nicht...

Weiss jemand Rat wie ich das anstelle (den Makro-Text in den Visual Basics)

Danke euch! :-)

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

Ich habe einen Spielberichtsbogen für ein Tischtennispunktspiel. Hier sind schon einige Formeln vorhanden, die mir das rechnen des Ergebnisses erleichtern. Am Ende des Spiels muss im Spielbericht auch das Spielende anhand der Uhrzeit eingetragen werden. Ich würde hier nun gerne eine eine Routine einbauen. Heißt, wenn eine der beiden Mannschaften den 7. Punkt geholt hat (den Siegpunkt), bzw. das Ergebnis eingetragen worden ist, soll in der Zelle, wo die Uhrzeit eingetragen wird, die aktuelle Uhrzeit erscheinen. Die soll auch nicht mehr veränderbar sein. Kann man das? Oder geht das überhaupt? Warum soll das automatisch passieren? Leider vergessen meine Mannschaftsführer der einzelnen Mannschaften des öfteren das Spielende einzutragen.

Hallo Leute,

Ich weiß das die Frage sehr schwierig ist und im Internet steht auch massig was, aber vielleicht gibt es hier ein paar Profis die mir konkrete Beispiele nennen können.

Ich möchte gerne mit der Fotografie anfangen und Makroaufnahmen von Insekten, Keimlinge, Pflanzen etc. machen, auch bewegte Bilder wie von Vögel im Flug oder eine fliegende Libelle. Zeitraffer Aufnahmen finde ich auch klasse.

Nun hat mir ne bekannte die Nikon D7100 empfohlen. Wenn ich mich im Internet so schlau mache dann hab ich am Ende 7 Favoriten und bin verzweifelt. Die eine rauscht dann auch mehr als die andere, dafür ist der  Live autofokus besser als bei der anderen.

Mich würde noch eine Nikon D300s oder Canon EOS 600D interessieren.

Wäre echt nett wenn ihr mir helfen könntet. Unten könnt ihr mal Beispiele sehen was ich meine.

Hallo Community,

ich habe eine große Tabelle, die eine bedingte Formatierung enthält. Ich würde diese jetzt gerne über einen Button ein bzw. aus schalten. Ich hab schon gelesen man könnte einfach den Button mit einer Zelle verknüpfen, und die bedingte Formatierung dann je nach Zellausgabe ein oder aus stellen. Allerdings weiß ich nicht wie man das anstellt :/

Ich hoffe mir kann geholfen werden,

Danke,

LG

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

Ich möchte in Excel eine Liste mit Namen erstellen und diese mit gleichnamigen Ordnern verknüpfen. Natürlich kann ich die Namen in Excel eintragen und dann ganz normal Ordner erstellen und sie dann mit einem Hyperlink verknüpfen,, aber das müsste duch eine Funktion doch schneller gehen (weil ich das für über 100 Namen machen will...)

Ich bin schon so weit gekommen, dass ich das über dieses "VBA" mache, indem ich Alt+F11 drücke, dann gebe ich dort diesen Code ein:

Sub Ordner_anlegen () 'prüfen ob ein Ordner vorhanden ist und falls nicht 'fragen ob Ordner erstellt werden soll Dim Ord As String Dim Antwort As Integer

Ord = "F:\Kundenkartei\"

If Dir(Ord, vbDirectory) <> "" Then MsgBox "Ordner ist schon vorhanden" Else Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _ & vbNewLine _ & "soll der Ordner angelegt werden?!", vbYesNo) If Antwort = vbYes Then 'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung 'den neuen Ordner auf dem aktuelle LW. 'LW wurde durch "F:\Kundenkartei\" festgelegt MkDir Ord MsgBox "Ordner " & Ord & "angelegt" Else MsgBox "es wurden keine Änderungen vorgenommen" Exit Sub End If End If End Sub

Wenn ich nach "Ord = "F:\Kundenkartei\" z.B. Mustermann eingebe und dann F5 drücke, wird ein Unterordner auf dem USB Stick mit dem Namen Mustermann erstellt (wenn "Mustermann" noch nicht vorhanden ist), aber wie könnte ich diesen Code abändern, sodass ich beispielsweise nur noch "Mustermann" in die Zelle A25 eintragen muss und dann der gleichnamige Ordner, am Besten noch mit der Zelle A 25 verknüpft, in dem Ordner "Kundenkartei" eangelegt wird? Und wie kann ich das dann auf alle Zeilen in der Spalte A anwenden?

Vielen Dank für eure Antworten!

Ich habe mittlerweile schon hunderte Codes(oder Makros?), die ich in den Foren gefunden habe, ausprobiert, aber irgendwie mache ich etwas falsch und ich bin langsam wirklich am verzweifeln :/

Hoffentlich könnt Ihr mir weiterhelfen :) Danke!!!

Ich muss eine Excel-Tabelle erstellen, wobei einige Benutzer eine bestimmte Spalte sehen können und andere wiederum nicht.

Den Benutzern, die die Spalte nicht sehen dürfen, darf es auch nicht möglich sein, die Spalte einzublenden.

Ich bin leider völlig unerfahren mit VBA und habe auch nach langem Suchen im Internet keine passende Lösung gefunden.

Sollte eine Lösung per Makro möglich sein ist es ebenfalls ganz wichtig, dass die Benutzer nicht die Möglichkeit bekommen das Makro zu deaktivieren.

Ich bedanke mich schon mal ganz herzlich!!!

LG Hafenhilde

Hallo! Ich habe eine Nikon D3200 und dazu das Kit-Objektiv 18-55mm und das Nikkor 55-300mm. Ich würde allerdings auch gerne Makro-Aufnahmen machen, deshalb bin ich jetzt auf der Suche nach einem Makroobjektiv, das nicht ganz so teuer ist. Alternativ würde ich mich auch über Nahlinsenvorschläge freuen, die sind ja generell nicht so teuer, dafür ist die Bildqualität natürlich schlechter. Schön wäre auch, wenn es für Tierfotografie (Fluchtdistanz) geeignet ist.

Hallo,

wie bereits oben erwähnt geht es darum, einen Bereich, den man im Vorfeld markiert hat samt Formeln zu kopieren und anschließend 3 Zeilen darunter einzufügen. Ich setzte mich das erste Mal mit Makros auseinander und komme leider nicht weiter mit meinem derzeitigen "Makro", da dieses nicht gespeichert werden kann:

Sub Copy&Paste() ActiveCell .Copy ActiveCell.Offset(3, 0).Select End Sub

Sobald ich aufs Ausführen gehe kommt: "Fehler beim Komplilieren: Unzulässiger oder nicht ausreichend definierter Verweis"

Ich hoffe, ihr könnt mir helfen,

Beste Grüße Sothe

Hallo Community,

ich habe eine Excel-Tabelle mit mehreren Spalten (A-BS) erstellt und in diesen Spalten sind viele Werte hinterlegt. Nun möchte ich etwas "programmieren", sodass wenn bsp. in Spalte A und Spalte C zweimal die gleiche Kombination auftritt, diese beiden identischen Kombinationen farbig hinterlegt werden oder sichtbar gemacht werden. Ich füg noch ein Bild hinzu, sodass das ganze etwas verständlicher ist.