VBA linien/pfeile zeichnen

Hallo VBA-Freunde,

habe wieder eine Aufgabe, wo ich keine Ideen habe...

angenommen in der Zelle A1 steht eine Kommazahl 3,25 (keine Konstante)

es sollen 3 volle Linien und die vierte zu 25% der einen vollen gezogen werden.

zu den Linien: beginnen ab der Zeile 2 untereinander, horizontal in der Mitte jeder Zeile und laufen bis einschlißlich spalte K.

hoffe, ich könnte mein problem verständlich ausdrucken.

hat jemand Ideen???

2 Antworten

Britzcontrol

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

05.10.2012, 11:02

Also verständlich ist das nicht.

Du suchst eine Lösung in VBA ?

Was sind "volle" Linien ?

Warum laufen die Linien über 11 Spalten (A bis K) ?

Fertige am Besten mal eine Datei, die Deinen Vorstellungen entspricht und lege eine lesbare Bildschirmkopie (z.B. mit Snipping-Tool) in einer "neuen Antwort" bei.

Gruß aus Berlin

Woher ich das weiß:Hobby – Jahrelanges programmieren.

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

05.10.2012, 13:31

Meine Idee wäre, dass du in einer Schleife solange von A1 um 1 dekrenierst, bis ein ein negativer Wert herauskommen würde.
In jedem Schleifendurchlauf erhöhst du deinen aktuellen Zeilenmerker und druckst den folgenden String in jede Spalte von A bis K: _______________________. Wenn du geüber mit VBA bist, kannst du zum Beispiel auch die Rahmen der Zellen verwenden oder die Füllfarbe auf schwarz ändern.

Wenn das Programm aus der Schleife herauskommt, machst du die Striche für die verbleibenden 0,25 = 25% Zellen von #(A bis K) = 11.

Wenn du einen exakteren Prozentwert in der Linienlänge widerspiegeln wolltest, müsstest du den obigen Linienstring entsprechend der verbleigenden promille verkürzen.

Beispiel: 11 Spalten von A-K, 25% = 11/4 = 2,75. Du fügst in Spalte A und B die Linie Vollständig ein und in C nur AnzZeichen * 0,75

Ach ja, vergiss nicht, die vertikale Ausrichtung der Zellen anzupassen, sodass die Linie auch in der Mitte der Zellen verläuft.

Du könntest außerdem mal schauen, ob es nicht ActiveX-Objekte oder dergleichen gibt, mit denen du die Länge der Linie pixelgenau bestimmen könntest. Den Anker setzt du dann immer auf die Spalte A der aktuell verwursteten Zeile.

Woher ich das weiß:Berufserfahrung – Programmierer

Suboptimierer

05.10.2012, 13:36

PS: Eventuell geht auch ein komplett schwarzes Bild, dass du im Sheet positionieren und duplizieren kannst, dessen Länge du dann dynamisch anpasst und dess Breite du ganz schmal setzt.

beemaya

05.10.2012, 13:36

soviel zum thema was ist begabung aus hingeworfenen bruchstücken :) respekt

Ähnliche Beiträge

Mehrere Zeilen in VBA einlesen und ausgeben?

Hallo,

ich habe mich in letzter Zeit in VBA eingearbeitet und bräuchte etwas Hilfestellung. Ich möchte, dass der User mehrere Zeilen untereinander markiert und diese daraufhin auf ein anderes Tabellenblatt genauso untereinander eingefügt werden. Hab es mit der application.InputBox Type 64 schon probiert, aber das klappt nicht ohne manuelle Eingaben.

...zum Beitrag

Excel (VBA) farbig Markieren und anschließend kopieren?

Hi liebe Leute, ich benötige bei meiner Excel-Datei eure Hilfe.

Die Datei hat zwei Tabellenblätter "Ermittlung" und "Markierung"

In dem Tabellenblatt "Ermittlung" steht untereinander genaue Zellenpositionen: A4, A1517, A119, A1831 usw. Nun möchte ich, dass dies gerne mittels VBA Makro alle diese Positionen erkennt und auf dem anderen Tabellenblatt "Markierung" farbig markiert.

Dann im nächsten Makro, dass Excel diese farbigen Zeilen kopiert und auf das dritte Tabellenblatt "Prüfung" kopiert. Aber er soll nicht einfach die komplette Zeile kopieren, sondern nur den Bereich Spalte A bis R und genau auch nur in Spalte A bis R diese wieder einfügen.

Gerne seprate in zwei verschiedenen Makros. Ich habe schon gesucht und probiert, aber nichts hat geholfen. Habt Ihr eine Idee? Danke

...zum Beitrag

Excel Export VBA?

Hey,

ich habe momentan eine Tabelle welche im seitlichen Vormat ist, also jeder Wert steht nebeneinander in Spalten. Also Kategorie Name, Datum, Persönliche Nummer, Aufgabe…

Bei Export möchte ich gerne jede Zeile als Block untereinander haben sodass jeder Person einen Block hat und zwischen jedem Block eine Spalte frei.

Kann mir hier jemand weiterhelfen.

Vielen Danke

...zum Beitrag

VBA 4 Gewinnt

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

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

Excel VBA, Kopieren bestimmter Zeilen in anderes Sheet?

Hallo, ich habe ein Sheet 1 mit X Zeilen. Ich möchte genau diejenigen Zeilen in ein neues Sheet 2 kopieren, die noch keinen Eintrag in der Spalte D haben. Das Ganze soll synconisiert geschehen, sprich, ich trage eine neue Zeile in Sheet 1 ein ohne Eintrag in Spalte D, dann kopiert er die Zeile gleich ins Sheet 2. Sobald etwas in Zeile D in Sheet 1 eingetragen wird, wird die Zeile in Sheet 2 wieder rausgelöscht. Hat jemand eine Idee wie ich das umsetzen kann? Freue mich über jede Hilfe!

...zum Beitrag

VBA für Datum und Uhrzeitauflistung (Fortführung), beim öffnen der Arbeitmappe?

Hallo VBA-Profis,

ich hätte gerne (bei Zelle A1 und B1 beginnend) ein VBA, dass beim öffnen der Arbeitsmappe, das Datum und die Uhrzeit sich auflistet, bzw. Fortführt.

D. h. beim 1. öffnen der Arbeitsmappe soll die Zelle A1 mit Datum und B1 mit Uhrzeit versehen werden (ungefähr so siehe Abb.)

Jetzt möchte ich, dass beim 2. öffnen der Arbeitsmappe, die Daten in A1 und B1 bestehen bleiben und das neue Datum und Uhrzeit in A2 (Datum) und B2 (Uhrzeit) eingetragen wird.

Beim 3. öffnen, A3 und A4 aktualisiert wird, u.s.w., aber die vorherigen Daten sollen stets erhalten bleiben.

Gibt es einen Möglichkeit dies stetig fortzuführen, optimal wäre sicherlich die Spalte A und B ohne Begrenzung, außer der möglichen Zeilenmenge-Verfügbarkeit von 1.048.576 Zeilen (so bei EXCEL 2019).

Ich habe keine VBA-Syntax-Kenntnisse !

Freue mich über eine Idee Eurerseits.

Gruß Tron

...zum Beitrag

WorksheetFunction.match liefert kein Ergebnis in Excel VBA?

Hallo zusammen. Ich habe folgendes Problem. In einer Excel-Datei (ThisWorkbook) habe ich die Tage vom 1.-letzten Tag eines Monats in Reihe 4 stehen. Ein Datum pro Spalte, beginnend in Spalte B. Darunter sollen jeweils Werte aus einer anderen Excel Datei (wbk360) eingetragen werden - mit Hilfe von VBA. In dieser zweiten Datei stehen die Tage untereinander in Spalte A. Ich benutze Worksheetfunction.Match, um die richtige Zeile in der zweiten Datei zu finden, bevor ich von dort Zahlen in meine erste Datei übertragen lasse.

Das hier ist der Teil des VBA Codes, der nicht funktioniert:

    For idatecol = 2 To 21
    On Error Resume Next
    idaterow = WorksheetFunction.Match(ThisWorkbook.ActiveSheet.Cells(4, idatecol).Value, wbk360.ActiveSheet.Range("A:A"), 0)
    
    ThisWorkbook.ActiveSheet.Cells(5, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iOccHeader).Value
    ThisWorkbook.ActiveSheet.Cells(6, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iIndexHeader).Value
Next idatecol

idaterow sollte mir die Zeile in Datei 2 nennen, in der das Datum steht, das ich gerade in Datei 1 bearbeiten möchte. Wenn ich aber mit F8 Zeile für Zeile durch den Code gehe, bleibt der Wert für idaterow immer 0; es wird also kein Match gefunden.

Die Daten in Datei 2 Spalte A werden als Datum in Excel erkannt. Gebe ich eine Match-Formel direkt auf meinem Worksheet in Datei 1 ein, benutze dort den Datumswert aus Zelle B4 in Datei 1 und suche nach einem Match in Spalte A in Datei 2, bekomme ich 5 als Ergebnis, weil dieses Datum in Zelle A5 in Datei 2 steht.

Offensichtlich findet Excel also das entsprechende Match für jedes einzelne Datum in Datei 1. Mit VBA finde ich aber kein einziges Match.

Hat jemand eine Idee, warum das so ist??? Vielen Dank im Voraus. Rene

...zum Beitrag

VBA erstes Wort, bzw. erste Zeile in Zelle aus Wordtabelle auswählen?

Hallo zusammen,

ich erstelle gerade ein Excel Makro, welches Daten aus einer Exceltabelle in eine Word-Tabelle kopiert und dann formatiert. Diese Frage bezieht sich dabei auf eine Zelle, in die verschiedene Werte kopiert und danach jeweils ein Zeilenumbruch eingefügt werden. Nun soll der oberste Wert (Er steht somit in der ersten Zeile der Zelle) Fett gemacht werden.

Das Problem dabei ist, dass ich nicht weiß, wie ich nur die erste Zeile, bzw. den ersten Wert markieren soll. Es ist ein nicht konstanter Wert, demnach kann ich auch nicht danach suchen. Wie ich das Ganze fett bekomme weiß ich, ich bekomm nur das Marieren nicht hin. Im Internet habe ich bis jetzt keine passende Lösung gefunden, deshalb bitte ich nun euch um Hilfe.

Zusätzlich erschwerend ist, dass das Ganze ja über Excel-VBA und nicht über Word-VBA läuft.

Liebe Grüße und vielen Dank schon mal im Voraus!

Nik

...zum Beitrag

Turniersoftware mit Excel, mit so wenig wie möglich VBA möchte ich programmieren. Könnte mir jemand mit der Auslosung helfen?

gespielt wird 2vs2, der Partner und die Gegner werden jede Runde neu ausgelost. Jedoch soll man nicht den gleichen Partner nochmal bekommen. Es gibt insgesamt 64 Spieler. Heißt eine Matrix mit 4 Spalten und 16 Zeilen. Hat jemand eine Idee wie ich es umsetzen könnte oder hat eine ähnliche Software schon mal programmiert und könnte sie mir zukommen lassen als Vorlage? Es soll so wenig wie möglich VBA benutzt werden.

...zum Beitrag

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zum Beitrag

Excel VBA Blattschutz ein und aus per Button?

Hallo allerseits,

ich bin gerade dabei einen Kalkulator mit Excel zu erstellen.

Dabei bin ich auf folgendes Problem gestoßen:

Ich möchte Das Blatt per Button entsperren, sperren und man sollte im gesperrten Zustand die Zeilen formatieren können.

AllowFormattingCells:=True

Sub Blattsperren()

On Error Resume Next

If ActiveSheet.ProtectContents = False Then GoTo Fehler

ActiveSheet.Unprotect

Exit Sub

Fehler:

ActiveSheet.Protect "+1516"

End Sub

Hat da jemand eine Idee, wie man die Formel richtig aufstellt?

Vielen Dank im Voraus

...zum Beitrag

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zum Beitrag

Excel/VBA? Input Abfrage?

Guten Tag,

ich habe eine Frage und zwar geht es um VBA.

Ich möchte gerne über die MSG input?Funktion einen gewissen Wert abfragen. Die Werte befinden sich in Tabelle 2 Range (A1:A20).

Sollte sich der eingegebene Wert nicht in dieser Tabelle befinden, dann soll eine Fehlermeldung zurückgegeben werden.

Wird der gewünschte Wert gefunden bzw. existiert er in der Tabelle 2 Spalte A, soll in der dazugehörigen Zeile (Tabelle 2 Spalte B) das Wort "erledigt" stehen.

Danach soll der Prozess geschlossen werden. Das Wort "erledigt" soll natürlich bestehen bleiben.

Leider komme ich da nicht weiter.

Hat jemand eine Idee? Hoffe habe mich verständlich ausgedrückt. Leider habe ich auch nicht so Ahnung von VBA.

Vielen Dank schon mal.

Gruß.

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen