MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 22.12.2017, 08:28   #16
hary
MOF Guru
MOF Guru
Standard

Moin
Einen hab ich auch noch.
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Long, s As Long
Dim strwks As String
  If Target.Count > 1 Or Target.Column < 3 Then Exit Sub
    z = Target.Row
    If Target.Column Mod 2 = 1 Then
      strwks = "Tabelle" & Fix(Target.Column / 2)
        If Not IsError(Evaluate(strwks & "!A1")) Then '--pruefen ob Blatt vorhanden
          With Worksheets(strwks)
              s = .Cells(z, .Columns.Count).End(xlToLeft).Column + 1
              If s < 3 Then s = 3
              Target.Copy .Cells(z, s)
          End With
        Else
          MsgBox "Blatt " & strwks & " nicht vorhanden", vbCritical, "Fehler"
          Application.EnableEvents = False
          Target = ""
          Application.EnableEvents = True
        End If
    End If
End Sub
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 14:07   #17
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys

Vielen Dank für deine Hilfe läuft gut.
Läuft genau so wie ich mir das gedacht habe.
So ein Macro kann man nicht aus dem Netz zusammen bauen, so wie ich es versuche.

Habe noch zwei oder drei kleiner Sachen die ich aber versuche erst mal
selbst über das Netz zu lösen.

Kann ich mich bei dir den noch mal melden wenn ich es nicht hin bekomme.
Noch mal vielen Dank
speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 14:50   #18
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys
Danke noch mal deine Lösung ist sehr gut.
So ein Makro kann ich als Anfäger und nür über suchen im Netz nicht erstellen.
Bin halt Anfänger und in meinem Alter werde ich es so auch nicht mehr lernen, aber ich würde mich freuen wenn man mir doch weiter hin hilft wenn ich es nicht hin bekomme.
Habe noch zwei drei Sachen die ich ein bauen möchte, werde es aber erst mal selbst übers Netz versuchen.
Kann ich mich noch mal melden wenn ich es nicht hin bekomme.
Vielen Dank noch mal

speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 15:22   #19
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys

Danke noch mal das du mir geholfen hast.

Der Code ist super.

So einen Code würde ich als Anfänger und bei meinem wissens stand nicht hin bekommen. werde es bei meinem Ater auch nicht mehr lernen.
Ich Bau mir fast alles aus dem Netz zusammen.

Habe noch zwei oder drei Sachen die ich ein bauen muß, versuche es aber erst mal wie immer üer das Netz.
Sollte ich es nicht hin bekommen würde ich deine Hilfe gerne noch mal in Anspruch nehmen.

Danke noch mal

Speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 15:29   #20
RPP63neu
MOF Meister
MOF Meister
Standard

Ein Kotau reicht doch, isn't it?

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 16:05   #21
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Entschuldigung bin halt Anfänger habe grade bemerkt das ich unten weiter blättern muß

Gruß speednetz
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 16:24   #22
aloys78
MOF Meister
MOF Meister
Standard

Hallo Speednetz,

danke für die Rückmeldung; eine hätte aber gereicht.

Zitat:

Bin halt Anfänger und in meinem Alter werde ich es so auch nicht mehr lernen

Jeder war mal Anfänger !
Und was das Alter betrifft: mit VBA habe ich kurz vor meinem 70. angefangen.

Zitat:

Habe noch zwei oder drei Sachen die ich ein bauen muß

Wenn Du nicht weiterkommst, dann melde Dich wieder hier im Forum.
Statt eines zusammengeschusterten Codes ist es für die Helfer besser, wenn Du eine Beispieldatei zur Verfügung stellst mit Ausgangssituation und gewünschtem Ergebnis sowie einer Erläuterung, wie das Ergebnis zustande kommen soll.

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 16:52   #23
Storax
MOF Profi
MOF Profi
Standard

@Ralf: Normalerweise meckerst Du doch
@Aloys: Dein Code läuft in Run Time Error 6, also nicht immer aber ein Cells.clear schießt ihn schon ab.

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.

Geändert von Storax (22.12.2017 um 16:56 Uhr).
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 17:10   #24
RPP63neu
MOF Meister
MOF Meister
Standard

Aber ganz large

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 19:22   #25
aloys78
MOF Meister
MOF Meister
Standard

Hallo Speednetz,

Kollegen haben mich noch auf einen Fehler im Code hingewiesen.

Bitte die erste If-Abfrage
Code:

If Target.Count > 1 Then Exit Sub   ' mehr als 1 Zelle ausgewählt
durch
Code:

 If Target.CountLarge > 1 Then Exit Sub   ' mehr als 1 Zelle ausgewählt
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.12.2017, 19:30   #26
aloys78
MOF Meister
MOF Meister
Standard

@Storax,
ich freue mich immer wieder, wenn Kollegen durch "Crashtests" die Fehlertoleranz einer Lösung auf die Probe stellen.
Können doch entsprechende Hinweise zu Verbesserungen und damit zu einer größeren Zufriedenheit unserer "Kunden" beitragen.

@Ralf
Der konkrete Hinweis hat mir Recherche-Arbeit erspart. Natürlich kenne ich die Funktion, vergesse es aber manchmal, sie auch anzuwenden. Vermutlich habe ich zu lange mit Office 2000 gearbeitet.

Auf jeden Fall. vielen Dank Euche Beiden !

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.12.2017, 15:20   #27
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Aloys

Ich habe da noch so zwei oder drei Sagen die ich nicht hinbekomme. Ich weiß auch nicht ob es überhaupt geht.
Wäre schön, wenn man mir dabei noch helfen könnte.

1. Dein VBA Code geht sehr gut, kleines Problem ich brauch nur die Wert nicht die bedingte Formatierung wäre das mach bar.
2. Das ist ein bisschen schwer zu erklären.
Ich trage in Tabelle1 in die letzte freie Zelle in Spalte A einen Wert ein.
Mit einem Makro kopiere ich es in alle anderen Tabellen und lasse es auch sortieren.
Nun mein Problem: Wenn sich die Zeile in Tabelle2 bis 7 ein fügt brauch ich immer in Spalte ab B6 die Formel =Summe (C6:Z6). kann man Tabelle2 bis 7 nicht so formatieren das immer, wenn eine neue Zeile eingefügt wird ach in Spalte B die Formel hinterlegt wird.
3. Dann noch eine Frage kann man deinen Code auch so verlängern das er die Eingabe Zelle leer macht und sich den Wert aus der jeweiligen Tabelle aus der Spalte B ausliest.

Wäre schön, wenn es dafür eine Lösung gäbe.
Nun noch eine Frage: Wie kann man so gut VBA erlernen ohne Englisch.
Vieleicht hast du ja einen Rat für mich.

Gruß speednetz
Angehängte Dateien
Dateityp: xlsm Schweiz4.xlsm (80,1 KB, 6x aufgerufen)
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.12.2017, 16:32   #28
aloys78
MOF Meister
MOF Meister
Standard

Hallo speednetz,

Auf Anhieb habe ich keine Verbindung mit dem bisherigen Thema herstellen können.

Ich schaue mir später erst mal die Datei an.

Gruß
Aloys

Geändert von aloys78 (27.12.2017 um 16:37 Uhr).
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.12.2017, 16:42   #29
speednetz
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke schon mal
speednetz ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.12.2017, 19:15   #30
aloys78
MOF Meister
MOF Meister
Standard

Hallo Speednetz,

Zitat:

1. Dein VBA Code geht sehr gut, kleines Problem ich brauch nur die Wert nicht die bedingte Formatierung wäre das mach bar.

Ich vermute, Du meinst die Tabellen 2, 3, …
Du hast doch offenbar die BF eingefügt, dann lösche sie doch einfach wieder.

Zitat:

2. Ich trage in Tabelle1 in die letzte freie Zelle in Spalte A einen Wert ein.

Ich vermute, Du meinst die nächste freie Zelle.

Zitat:

Nun mein Problem: Wenn sich die Zeile in Tabelle2 bis 7 ein fügt brauch ich immer in Spalte ab B6 die Formel =Summe (C6:Z6).

Ich habe dazu den ersten Teil des Codes ersetzt (in rot)

Zitat:

3. Dann noch eine Frage kann man deinen Code auch so verlängern das er die Eingabe Zelle leer macht und sich den Wert aus der jeweiligen Tabelle aus der Spalte B ausliest.

Habe ich nicht verstanden; warum gibst Du in die Zelle etwas ein, was das Makro sofort wieder löschen soll ?

Gruß
Aloys
Code:

Sub Sortieren()
    'Kopieren

    Dim LRow As Long
    Dim i As Long
    Dim r As Long
    Dim rng As Range, rng1 As Range
    Dim ws As Worksheet
    
    With Worksheets("Tabelle1")
        r = ActiveCell.Row
        Set rng1 = ActiveCell
        Set rng = .Range(.Cells(r, 3), .Cells(r, 13))
    End With
    
    For i = 2 To 7
        Set ws = Worksheets("Tabelle" & i)
        With ws
            LRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            rng1.Copy
                .Cells(LRow, "A").PasteSpecial Paste:=xlValues
                
            rng.Copy
                .Cells(LRow, "C").PasteSpecial Paste:=xlValues
            .Cells(LRow, "B").FormulaLocal = "=Summe(" & "C" & LRow & ":Z" & LRow & ")"
            With .Cells(LRow, "B")
                .NumberFormat = "#,##0.00 $"
                .Font.Bold = True
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlBottom
            End With
        End With
    Next i
    Application.CutCopyMode = False
 
 
 Range("A6:A500").Select
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").Sort
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:27 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.