Hallo zusammen

Ich würde mich um Untersützung freuen bei meinem aktuellen Problem:

habe ein makro aufgesetzt (das scheint mir aber verkehrt zu laufen, oder besser gesagt gar nicht)

möchte wie im bild ersichtlich via Klick auf die rote schaltfläche eine zeile über jener Zeile wo die 3 drin steht einfügen

Ich bekomms aber leider partout nicht hin.

Hier noch mein Code bis anhin (das next am schluss ist da, weil ich das ganze prozedere später in einer anderen spalte auch noch machen will):

Sub Rechteck1_BeiKlick()
'
' Rechteck1_BeiKlick Makro
' Makro am 10.09.2010 von Cartel aufgezeichnet
'

'
Sheets("Tabelle1").Select
ActiveSheet.Unprotect

Dim wksA As Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Set wksA = ActiveSheet

lngLetzteZeile = wksA.Cells(wksA.Rows.Count, 2).End(xlUp).Row
For lngZeile = 12 To 1 Step -1
If wksA.Cells(lngZeile, 2).Value = 3 Then
wksA.Rows.Select
Selection.Insert Shift:=xlUp
End If
Next

ActiveSheet.Protect

Carteloni schrieb:

wksA.Rows.Select

Was soll diese Zeile tun?
Welche Zeile?

Das sollte dann meine Zeile mit der 3 drin sein, und oberhalb von dieser zeile soll eine neue eingefügt werden.

Die 2. Variante, die ich mir vorstellen könnte wäre auch, dass das gelbmakrierte mein Zellenbereich x ist, und dass ich mein makro auf diesen Bereich auslegen könnte um den bereich in der untersten Zeile um 1 zeile zu erweitern. Aber bei dieser variante bin ich von vorn herein zu keinem zwischenergebnis gekommen

hab jetzt noch ein buch gekauft und versucht mehr über bedingtes einfügen herauszufinden, aber iergendwie komm ich da trotzdem nicht vom fleck, bin eigentlich auch eher ein neuling im gebiet vba.

wüsstest du evtl. eine lösung?

Ich hatte gehofft meine Anspielungen hätten dir weiter geholfen.

Hier selektierst du alle Zeilen. Das ist bestimmt nicht deine Absicht



Damit würdest du vor die erste Zeile deine zusätzliche Zeile einfügen.




Vielleicht ist das hier eher das was du erreichen wolltest?



Die Programmzeile
Rows(lngZeile & ":" & lngZeile).Select
lässt sich bestimmt auch eleganter schreiben, war jetzt aber zu faul nachzulesen.

Zuerst mal, danke vielmal!! das makro funktioniert wie ein frisch geöltes getriebe.

Die Passage mit dem "wksA.Rows.Select" hätte ich sehen müssen, da hast du recht.

Habe deine Arbeit noch ein wenig erweitert, weil die 3 will ich eigentlich auf dem tabellenblatt nicht sehen, sie soll mir nur als referenz/Orientierungspunkt helfen, somit lass ich die jeweils ausblenden


Falls du mir bei einem 2. vba problem noch helfen könntest wäre ich dir sehr dankbar, hab da nämlich noch was weiteres was mich juckt und ich nicht auf die reihe kriege, und bin jetzt bis halb 2 morgens schon an diesem werk:

Sub Rechteck1_BeiKlick()
'
' Rechteck1_BeiKlick Makro
' Makro am 13.09.2010 von Cartel aufgezeichnet
'

Sheets("Tabelle1").Select
ActiveSheet.Unprotect

Dim werte As Range
Dim Anz As Integer
Dim wksA As Worksheet
Dim lngLetzteZeile As Long
Dim lngZeile As Long
Set wksA = ActiveSheet
Set werte = wksA("Tabelle1").Range("xxx1" And "xxx2") (ich kann da iergendwie nicht beide Zellbereiche markieren)

Anz = Application.WorksheetFunction.CountIf(werte, <> 0)

Sheets("Tabelle2").Select
ActiveSheet.Unprotect

Selection.Insert Shift:=AnzDown (müsste das so gehen?)
End If

Next

End Sub

-------------------

Bemerkung zum makro: xxx1 und xxx2 sind zwei gleich grosse zellbereiche in 2 verschiedenen spalten

Was ich da genau erreichen möchte ist folgendes:

1. das makro zählt in tabelle1 in den Zellbereichen xxx1 und xxx2 die Anzahl Zeilen, wo auf der selben höhe nicht zwei 0 vorkommen

2. das makro nimmt jetzt die erhaltene Anzahl und fügt soviele Zeilen in tabelle2 ab zeile 10 neu ein.

Könntest du mich da noch beraten?

Besten Dank nochmals für deine Hilfe!!

Carteloni schrieb:

Set werte = wksA("Tabelle1").Range("xxx1" And "xxx2")

Nimm statt AND ein Komma vielleicht geht das bei deinem Problem

Carteloni schrieb:

Selection.Insert Shift:=AnzDown (müsste das so gehen?)

bei mir gibt es nur

xlDown
xlToLeft
xlToRight
xlUp

Aber AnzDown kennt das System bei mir nicht.
Wie wäre es, wenn du die Macroaufnahmefunktion von Excel mal studieren würdest.
Damit kannst du am meisten lernen. Denn VBA funktioniert meist so, wie man es
auch 'per Hand' machen würde.

Lightsource schrieb:

Carteloni schrieb:

Set werte = wksA("Tabelle1").Range("xxx1" And "xxx2")

Nimm statt AND ein Komma vielleicht geht das bei deinem Problem

Ranges werden auch mit nem Doppelpunkt getrennt, also z.B.:

Carteloni schrieb:

Bemerkung zum makro: xxx1 und xxx2 sind zwei gleich grosse zellbereiche in 2 verschiedenen spalten

Ich nehme an, Carteloni meinte so etwas :

Ja genau Lightsource, das Auswählen der Zellen stimmt dann so auch mit dem Komma (,), also ich krieg beide Spalten zur Selektion.

was bei mir aber noch immer nicht geht ist das Folgende, nämmlich dass mir das Makro in diesen augewählten Spalten die Zeilen durchsucht auf Wertbereiche die ungleich Null sind (vgl. Beispiel)

@Fonsi: Das mit dem Recorder bin ich fleissig am Ausprobieren, nur da krieg ich das eben auch nicht hin, wie ich mit dem Makro am Ende mehrere Zellen auf einemal einfügen kann, und im besten Fall wären diese mehreren Zellen eben das Resultat aus der Anzahl, die ich durch das Vergleichen der beiden Spalten erhalte

Danke bereits im Voraus für eure Bemühungen und weitere konstruktive Antworten

Schreibe als Formel in F3 bis F7
=ODER(B3;D3)
=ODER(B4;D4)
etc.
bis =ODER(B7;D7)

In F9 schreibe
=ZÄHLENWENN(F3:F7;WAHR)

Das wäre zumindest das, was ich aus deinem Satz auf deinem Bild verstanden hatte.
Ich denke das müsste auch auf deiner "nicht Originalsoftware" funktionieren.

die version ist für mich zum üben - da kann ich wüten drauf, was mir manchmal das ganze programm ein wenig durch den wind schiesst..



eine funktion einbauen wäre schon recht gut, aber mit der ODER Funktion von dir, krieg ich leider immer ein resultat wenn da iergendwo eine null steht.

Mein Ziel wäre, dass ich unterscheiden kann ob da auf der selben Zeile in den beiden Spalte iergendwo zwei Nullen vorkommen. Wenn iergendwo auf der Zeile in einer der beiden Spalte eine Zahl (ungleich 0) steht, so soll die Zeile gezählt werden. Und mit diesem Ergebnis am Schluss, die Anzahl Zeilen, mit denen möchte ich dann weiterarbeiten.

Konkret möchte ich ja dann die Anzahl verwenden um zu sagen, jetzt soll mir das Makro gemäss gezählten Zeilen, soviele Zeilen im anderen Tabellenblatt einfügen.

Denkt ihr da lässt sich noch was machen?

Natürlich lässt sich da etwas machen.
Versuche dich mal mit den 'WENN' Funktionen von Excel.
Da kannst du dann alles so zusammenknoten wie du es gerne hättest.
Vor allem schreib dir selbst erst mal formelartig auf was du willst:
Wenn B2 und F2 <> 0, dann Ergebnis: 1
oder ähnlich...
Dann lässt es sich später leichter umsetzen.

Danke dir bestens, ich hab das jetzt mit einem Makro in Kombination mit einer Funktion erstellt.



Beste Grüsse

Caretloni